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ABSTRACT 


All  Navy  aircraft  are  required  to  accommodate, 
anthropometrically ,  ninety  percent  of  the  user  population. 
Some  designs  have  been  criticized  for  their  low  accommo¬ 
dations  but  those  accommodations  have  never  been  quantified. 
The  purpose  of  this  thesis  was  to  quantify  the  accommoda¬ 
tion,  by  each  type  of  operational  Naval  aircraft,  of 
populations  of  Naval  aviation  personnel  of  1964,  1969,  and 
1975.  The  Computerized  Accommodation  Percentage  Evaluation 
(CAPE)  model  was  used  to  generate  data  points  since  only 
summary  statistics  were  available  for  two  of  the  popula¬ 
tions.  Each  subject  of  every  population  was  checked  against 
the  requirements  of  the  design  specification,  and  against 
the  limitations  of  each  aircraft.  All  aircraft  were  found 
to  accommodate  more  than  ninety  percent  of  the  1975  popu¬ 
lation.  Time  related  changes  in  the  populations  were  noted 
and  unexplained  inconsistencies  in  the  data  were  discovered. 
Possible  sources  of  error  were  discussed  and  potential 
solutions  proposed. 
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I .  INTRODUCTION 


The  Human  Engineering  Design  Criteria  for  Military 
Systems,  Equipment  and  Facilities  [MIL-STD-1472B3  states 
the  requirement  for  anthropometric  accommodation  of 
equipment  users: 

Design  and  sizing  shall  insure  accommodation,  com¬ 
patibility,  and  maintainability  by  at  least  90 
percent  of  the  user  population.  Generally,  design 
limits  shall  be  based  upon  a  range  from  the  5th 
percentile  to  the  95th  percentile  values  for 
critical  body  dimensions. 

For  the  special  case  of  Naval  Aircraft  cockpits,  the 
accommodation  criterion  was  enlarged  in  1973  to  include  the 
central  95  percent  of  the  user  population  CNAVAIR  SD-24K, 
19733.  The  anthropometric  description  of  the  population  is 
based  on  data  collected  in  1964.  Although  a  future  survey, 
scheduled  for  1981,  will  provide  a  more  current  description 
of  the  anthropometric  features  of  Naval  aviation  personnel, 
aircraft  now  being  designed  for  production  and  use  well  into 
the  future  are  being  designed  to  accommodate  the  1964  popu¬ 
lation.  The  P-18,  projected  to  become  operational  in  1982 
will  be  built  to  accommodate  the  pilots  of  1964.  Other 
designs,  If  they  have  advanced  much  beyond  the  concept 
stage,  are  committed  to  the  same  aircrew  accommodation 


standards. 


The  anthropometric  characteristics  of  the  population 
are  changing  but  the  design  specification  is  not.  That  the 
population  is  changing  is  reflected  in  efforts  by  the 
National  Aeronautics  and  Space  Administration  and  by  the 
United  States  Air  Force  to  predict  the  typical  pilot  size 
of  the  future.  A  1978  study  conducted  by  NASA  concluded 
that  stature  (height)  increases  among  pilot  and  potential 
astronaut  males  could  be  expected  to  amount  to  about  8  mm 
(1/3  inch)  per  decade  [NASA  1024  Vol.  I,  1978].  The 
U.S.  Air  Force  predicted  an  increase  in  height  of  0.418 
inch  per  decade  Roebuck,  Kroemer,  and  Thompson,  1975  . 

These  changes,  since  1964  and  into  the  future,  affect 
pilot  accommodation  in  operational  Naval  aircraft,  but  the 
exact  nature  of  the  effect  is  not  known. 

In  1977  the  Navy  implemented  the  Anthropometric 
Compatibility  Assignment  Program  COPNAVINST  3710.363,  a 
system  aimed  at  preventing  the  assignment  of  Naval  Aviators 
and  Naval  Flight  Officers  to  aircraft  which  are  incompatible 
with  their  anthropometric  features.  Under  the  provisions  of 
this  program,  pilots'  and  NFOs'  anthropometric  measurements 
are  taken  when  they  enter  flight  training  [BUMEDINST  3710.1, 
1977].  Values  for  sitting  height,  functional  reach, 
buttock-knee  length,  t.id  leg  length  (for  descriptions  of 
anthropometric  terms,  see  Appendix  A)  are  encoded  and 
become  part  of  their  permanent  records.  For  example,  a 


man  coded 


6  4  2  3 

would  have  a  sitting  height  measurement  between  38.5  and 
38.9  inches,  a  functional  reach  of  30.5  to  30.9  inches, 
buttock-knee  length  of  23.0  to  23.9  inches  and  a  leg  length 
of  40.0  to  42.9  inches. 

The  cockpits  of  each  operational  aircraft  type  are 
measured  to  determine  the  limits  of  pilot  size  compatible 
with  the  cockpit  [NAVA1RINST  3710.9,  1979} .  The  maximum 
and  minimum  acceptable  dimensions  for  sitting  height, 
functional  reach,  buttock-knee  length,  and  leg  length  are 
determine  *  t^r  each  cockpit.  These  maxima  and  minima  are 
then  converted  to  four  coded  descriptors,  which  signify 
dimensions  of  exclusion  for  pilots.  For  example,  an  A-4E 
is  coded: 

089  9  789  0 

As  with  the  personal  anthropometric  codes,  the  first  of  the 
four  groups  of  numbers  corresponds  to  sitting  height.  The 
second  group  corresponds  to  functional  reach;  the  third  to 
buttock-knee  length,  and  the  fourth  to  leg  length.  The 
code  089  9  789  0  indicates  that  a  pilot  with  a  sitting 
height  code  0,  8,  or  9  would  not  be  eligible  for  assignment 
to  an  A-4E.  Similarly  any  pilot  with  a  functional  reach 
code  9,  buttock-knee  length  code  7,  8,  or  9,  or  a  leg 
length  code  0  would  be  excluded. 

The  Chief  of  Naval  Aviation  Training  (CNATRA)  is 
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required  to  utilize  these  codes  early  in  each  aviation 
student's  training  to  exclude  the  student  from  training 
sequences  leading  to  aircraft  with  which  he  is  not  com¬ 
patible  CCNATRAINST  13520.1,  1980].  The  Navy  Military 
Personnel  Command  uses  the  anthropometric  codes  in  the 
process  of  assigning  pilots  and  NFOs  to  aircraft  squadrons. 

Currently,  a  similar  coding  scheme  is  under  consider¬ 
ation  for  use  internationally  among  free  world  natious 
CClauser,  1980].  The  need  for  such  a  program  was  indi¬ 
cated  by  difficulties  encountered  by  some  foreign  countries 
operating  aircraft  acquired  from  the  United  States  and 
other  foreign  sources. 

In  Figure  1,  it  is  apparent  that  the  height  of  U.S. 

Air  Force  flight  personnel  is  generally  greater  than  that 
of  other  countries.  The  fifth  percentile  in  U.S.  height 
is  greater  than  the  50th  percentile  of  the  samples  from 
Japan,  Thailand,  and  Vietnam.  Figure  2  shows  a  similar 
relationship  for  sitting  height. 
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Figure  1 

Heights  of  Seven  Military  Populations 


SOURCE:  Kennedy,  K.W.,  1 Antnropometry  and  Kinematics 
in  Crew  Station  Design,'  Crew  System  Design:  An  Interagency 
Conference,  Cross,  K.D.  and  McGrach,  J.J.  (eds.),  proceedfngs 
of  an  interagency  conference,  Los  Angers,  12-14  September, 


1972,  p.  70. 
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Figure  2 

Sitting  Heights  of  Seven  Military  Populations 
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SOURCE:  Kennedy,  K.W. ,  ’Anthropometry  and  Kinematics  in 
Crew  Station  Design,’  Crew  System  Design :  An  Interagency 
Conference ,  Cross,  K.D.  and  McGrath,  (eds),  processings 

of  an  interagency  conference,  Los  Angeles,  12-14  September 
1972.  p.  71. 


In  this  case  the  5th  percentile  is  larger  than  the  50th 
percentile  of  Thailand  and  Vietnam.  Aircraft  designed  to 
accommodate  people  as  small  as  the  5th  percentile  of  the  U.S. 
population  can  be  expected  to  exclude  about  half  of  certain 
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foreign  populations  and  as  much  as  75  percent  of  the 
Vietnam  aviation  personnel  [Kennedy,  19733. 

Although  design  criteria  require  accommodation  of  the 
central  ninety  percent  of  the  Naval  aviation  population, 
the  existing  population  is  imperfectly  described  by  the  1964 
sample.  Changes  in  the  selection  process,  trends  in  the 
United  States  general  population  were  cited  as  factors  con¬ 
tributing  to  the  differences  between  the  1964  and  the  1969 
populations  fMoroney,  Kennedy,  Gifford,  and  Provost,  1971]. 
In  addition,  designing  to  accommodate  the  fifth  and  ninety- 
fifth  percentiles  in  each  variable  does  not  yield  an 
accommodation  of  ninety  percent  of  the  total  population. 
Since  exclusion  results  from  any  one  measurement  being  out¬ 
side  limits,  accommodation  is  as  much  a  function  of  the 
correlation  between  measurements  as  it  is  a  function  of 
each  measurement.  The  correlation  between  measurements  is 
appreciably  less  than  1.0  and  accommodation  is  less  than 
that  indicated  by  any  univariate  estimate.  When  twelve 
measurements  were  considered,  the  exclusion  of  subjects  who 
were  outside  the  5th  and  95th  percentile  range  in  any 
measurement  yielded  a  cumulative  exclusion  of  48  percent 
[Moroney  and  Smith,  1972].  As  the  existing  population  is 
altered  further  by  expanding  the  acceptable  range  to 
include  a  greater  percentage  of  the  female  population,  user 
accommodation  will  be  adversely  affected.  For  example,  a 
generalized  cockpit  built  to  male  anthropometric  standards 
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excluded  22  percent  of  the  male  user  population.  The  same 
cockpit  excluded  90  percent  of  the  females  in  the  U.S.  Air 
Force  [Ketcham-Weidl  and  Bittner,  19761. 

Before  considering  future  changes  in  the  population, 
the  current  anthropometric  exclusion  situation  should  be 
determined.  However,  the  proportion  of  the  Naval  aviation 
population  excluded  by  the  existing  design  specification 
has  not  been  quantitatively  determined.  Similarly  the 
proportion  excluded  by  each  specific  aircraft  design  is 
unknown.  Some  aircraft  can  be  expected  to  exclude  more 
than  the  ten  percent  designed  out  by  the  specification. 

Other  aircraft  will  exclude  less  than  the  maximum  allowable 
ten  percent  by  virtue  of  design  allowance  or  perhaps  by 
chance. 

The  methods  employed  in  measuring  aircrew  personnel 
have  been  found  to  be  rather  unreliable  [Moroney,  et.  al. , 
19713,  These  measurements,  however,  form  the  basis  of  the 
Anthropometric  Compatibility  Assignment  Program  and  their 
accuracy  is  critical  since  they  constitute  a  determining 
factor  in  an  officer's  career  path  starting  point.  Addition¬ 
ally,  these  same  data  will  be  used  to  help  identify  (or 
eliminate)  subsequent  aviation  duty  assignments.  Consider¬ 
able  attention  has  been  placed  on  determining  the  proper 
use  of  the  data  but  the  actual  collection  of  the  data 
appears  to  be  an  area  where  reliability  could  be  improved. 
Currently,  there  is  no  systematic  method  of  checking 
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anthropometric  measurements.  Each  student  is  measured  once 
without  any  attempt  at  remeasurement  or  checking  of  the 
accuracy  of  the  measurements.  If  a  measurement  is  recorded 
in  error,  the  error  becomes  part  of  the  student's  record, 
undetected  until  some  independent  event  brings  the  error  to 
light.  Errors  in  measurement  of  as  much  as  three  inches 
have  been  found  Co ' Leary,  19803  subsequent  to  the  erroneous 
measurement  being  used  to  determine  anthropometric  suit¬ 
ability  and  assignment  of  a  student  to  an  aircraft  type. 

Some  students  have  completed  flight  training  before  anthro¬ 
pometric  measurement  errors  were  detected,  resulting  in 
reassignment  and  expensive  retraining. 

The  purpose  of  this  thesis  is  to  quantify  the  amount 
of  incompatibility  between  aircraft  and  aircrewmen  and  to 
propose  some  alternatives  to  improve  the  reliability  of  the 
personal  anthropometric  measurements  now  being  taken.  By 
examining  samples  drawn  from  three  Naval  aviation  popula¬ 
tions,  each  of  a  different  year,  proportions  of  those 
populations  excluded  from  Naval  aircraft  will  be  determined. 
The  exclusions  resulting  from  changes  in  the  population  will 
be  quantified  and  the  specific  proportions  excluded  from 
each  aircraft  type,  as  a  function  of  sample  source,  will  be 
calculated.  Those  results  will  lead  to  a  discussion  of  some 
inconsistent  patterns  in  the  data  and  recommended  changes  in 
the  data  collection  procedure  now  used  by  the  Navy. 


Chapter  2,  DATA  SOURCES,  describes  the  three  data  sets 
analyzed.  For  each  of  the  three  samples:  the  subjects  were 
described,  previous  statistical  analyses  discussed,  and 
methods  of  data  collection  compared.  Chapter  3,  DATA 
PREPARATION,  describes  the  preparation  of  each  data  set 
to  facilitate  analysis.  Preparations  consisted  primarily 
of  the  use  of  a  segment  of  the  Computerized  Accommodation 
Percentage  Evaluation  (CAPE)  model  to  generate  data  points 
from  a  statistical  description  of  the  population.  Chapter 
4,  ANALYSIS  OF  DATA,  describes  the  screening  of  each  data 
set  to  determine  the  proportion  of  the  sample  excluded. 
Screening  involves  the  elimination  of  any  subject  with  an 
anthropometric  measurement  outside  prescribed  limits.  The 
proportions  excluded  from  each  sample  are  then  compared. 
Observations  on  the  apparent  shortcomings  in  data  collection 
methods,  errors  in  measurements,  and  unexplained  inconsis¬ 
tencies  were  included.  Chapter  5,  SUMMARY  AND  CONCLUSIONS, 
includes  inferences  concerning  interpretations  of  anthropo¬ 
metric  data  and  recommendations  in  the  area  of  data 
collection  methods  for  use  by  the  Navy. 


II.  DATA  SOURCES 


The  data  to  be  analyzed  consisted  of  samples  from  three 
populations.  Samples  of  Naval  aviation  personnel  were  taken 
in  1964,  1969,  and  1975.  Differences  between  populations 
other  than  the  year  of  the  sample  exist  and  they  will  be 
discussed  below. 

A.  THE  1964  SURVEY  DATA 

In  1964,  a  survey  was  conducted  to  determine  the  anthro¬ 
pometric  characteristics  of  personnel  flying  in  Naval 
aircraft.  The  survey  was  conducted  in  a  manner  to  yield 
results  sufficiently  precise  to  be  utilized  subsequently  for 
design  of  aircraft.  The  Bureau  of  Medicine  and  Surgery, 
tasked  to  collect  data  for  use  by  the  Bureau  of  Weapons, 
sent  a  trained  anthropometric  measuring  team  to  ten  different 
Naval  and  Marine  Corps  air  stations  to  take  measurements. 

Included  in  the  sample  were  pilots,  Naval  Aviation 
Observers,  bombardier-navigators,  radar  observers,  flight 
surgeons  who  were  designated  Naval  Aviators,  and  enlisted 
personnel  who  were  permanently  designated  aeronautical 
personnel  and  who  were  still  eligible  for  assignment  to 
subsequent  duty  involving  flying.  Naval  Aviators  included 
both  U.S.  Navy  and  the  U.S.  Marine  Corps  flyers. 

The  subjects  in  this  survey  comprised  approximately  ten 
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percent  of  the  Naval  aviation  population  on  active  duty  in 
1964.  The  sample  included  personnel  of  various  ages,  ranks, 
ethnic  backgrounds  and  sources  (Naval  Academy,  NROTC,  etc.). 
In  that  respect  the  sample  undoubtedly  provided  an  accurate 
representation  of  the  Naval  a  -iation  population.  The  com¬ 
position  of  the  sample  is  somewhat  different  from  the  later 
samples  in  the  respect  that  enlisted  men  and  older  men  were 
surveyed  in  1964  but  not  in  the  later  samples.  The  relia¬ 
bility  of  the  measurements  received  special  attention  and 
was  enhanced  by  the  repeat  measurement  of  randomly  selected 
subjects,  insuring  rapid  detection  of  measurement  errors  and 
encouraging  the  data  collectors  to  be  careful  in  their  task. 
Each  measurement  was  taken  by  personnel  specifically  trained 
for  the  job,  using  a  technique  of  measurement  recognized  as 
the  most  accurate  available. 

Published  results  of  the  survey  include  means  and 
standard  deviations,  as  well  as  percentile  listings  for  each 
variable  C Gifford,  Provost,  and  Lazo,  19651.  Subsequent 
analysis  of  the  data  led  to  publication  of  correlations 
between  pairs  of  variables  CMoroney,  et.  al . ,  1971] . 

The  results  of  this  survey  were  adopted  by  the  Navy  as 
the  basis  for  aircraft  design  specifications.  MIL-STD-1333A, 
Military  Standard  Aircrew  Station  Geometry  for  Military 
Aircraft,  includes  NAEC-ACEL-553  as  part  of  the  standard, 
thus  specifying  the  1964  data  as  the  guideline  for  aircraft 
being  built  today  (NAEC-ACEL-553  reported  the  results  of  the 
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1964  survey).  In  that  sense,  these  results  are  recognized 
as  the  standard  and  they  have  become  the  yardstick  against 
which  other  data  can  be  compared. 

This  data  set  has  two  shortcomings  with  respect  to  this 
thesis,  however.  No  measurements  of  leg  length  (or  buttock- 
leg  length)  were  taken.  The  components  of  leg  length 
(buttock-knee  length,  knee  height  sitting  and  popliteal 
height  sitting)  were  recorded  but  leg  length  had  not  yet 
been  recognized  as  a  critical  selection  dimension.  Also, 
the  results  of  data  analysis  are  available,  but  the  raw 
data  are  not.  The  importance  of  these  two  limitations  will 
become  apparent  when  procedures  are  discussed. 

B.  THE  1969  DATA 

Subsequent  to  the  introduction  of  an  integrated  anthro¬ 
pometric  measuring  device  in  1964,  the  Navy  required  that 
the  device  be  used  to  measure  all  aviation  training  candi¬ 
dates  during  their  aviation  training  entrance  physical 
examination,  which  was  administered  at  the  School  of  Aviation 
Medicine  (now  the  Naval  Aerospace  Medical  Institute).  The 
collection  of  anthropometric  data  was  thus  institutionalized 
and  became  a  routine  process.  Eight  measurements  were  taken 
on  each  entering  Student  Naval  Aviator  and  Student  Naval 
Flight  Officer.  These  measurements  were: 

weight  trunk  height 

height  buttock-knee  length 

sitting  height  buttock-leg  length 

shoulder  width  functional  reach 
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Between  January  1966  and  August  1969,  6,534  students 
were  measured.  Their  measurements  comprise  the  data  set 
herein  called  the  1969  data.  The  description  of  this  data 
set  was  published  in  1971  CMoroney,  et.  al.,  1971]  and 
includes  the  mean  and  standard  deviation  of  six  measurements 
(shoulder  height  and  functional  reach  were  deleted  from  the 
analysis),  percentile  listings  for  those  measurements  and 
correlations  between  variables. 

No  information  on  functional  reach  or  shoulder  height 
was  published  because  of  the  discovery  of  measurement  tech¬ 
nique  errors  resulting  in  measurements  uncorrectible  by 
any  means  short  of  repeat  measurement.  This  deviation  from 
ideal  procedure  should  not  have  been  altogether  surprising 
since  measurements  were  taken  by  personnel  whose  level  of 
training  did  not  match  that  of  the  1964  data  collectors. 

In  addition,  measurements  were  taken  and  recorded  with  no 
subsequent  checking,  leaving  procedural  errors  undetected 
and  biasing  the  measurements  of  many  subjects. 

The  size  of  the  1969  data  set  is  quite  large,  consisting 
of  virtually  all  of  the  student  aviation  input  for  over  three 
years.  As  with  the  1964  data  set,  no  raw  data  is  available, 
only  analytical  results.  The  absence  of  functional  reach 
from  the  data  analysis  will  present  an  obstacle  to  be 
discussed  in  Chapter  3. 
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C.  THE  1975  DATA 


Following  the  publication  of  the  results  of  the  1969 
data  analysis,  an  improved  integrated  anthropometric 
measuring  device  was  installed  at  NAMI  and  it  was  subse¬ 
quently  used  to  measure  incoming  students.  That  device  is 
still  in  use  today.  It  is  operated  by  NAMI  staff  Hospital 
Corpsmen  and  it  was  used  to  measure  the  same  eight  dimen¬ 
sions  as  was  its  predecessor.  A  sample  of  968  students 
who  entered  training  in  1975  comprise  the  subjects  of  the 
1975  data.  The  raw  data  is  available  and  from  an  examina¬ 
tion  of  the  data  points  thirty-two  subjects  were  found  to 
be  deficient  in  some  respect  and  did  not  meet  the  entry 
requirements  delineated  by  the  Bureau  of  Medicine  and  Surgery 
CMANMED,  1978].  Most  of  these  ineligibilities  were  based  on 
excessive  weight.  However,  all  subjects  were  screened  for 
minimum  and  maximum  values  of  weight,  height,  sitting  height, 
and  buttock-leg  length,  as  well  as  for  height-weight  rela¬ 
tionship.  The  remaining  936  subjects  comprise  the  acceptable 
sample. 

The  1975  data  were  collected  in  a  manner  similar  to  that 
used  for  the  1969  data  set:  a  routine  execution  of  estab¬ 
lished  procedures  by  Navy  enlisted  personnel.  The  1975 
data  also  manifest  data  collection  deviations  similar  to 
those  of  the  1969  data.  The  number  of  subjects  is  smaller 
than  either  of  the  other  samples  but  still  large  enough  to 
lend  itself  to  statistical  analysis. 
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III.  DATA  PREPARATION 


*  Y  fWJ 


The  goal  of  the  analysis  was  to  determine  the  proportions 
of  the  1964,  1969,  and  1975  samples  excluded  by  the  four 
anthropometric  limitations  (sitting  height,  functional 
reach,  buttock-knee  length,  and  leg  length)  required  by 
OPNAVINST  3710. 36A.  This  goal  was  achieved  by  screening 
each  subject  four  times,  once  for  each  of  his  measurements, 
and  eliminatinr  every  subject  whose  measurements  were  not 
all  within  1  .ii  ts . 

This  Procedure  required  knowledge  of  the  four  individual 
measurements  for  each  subject.  In  the  3975  data  set,  the 
four  measurements  (and  more)  were  readily  available.  For 
the  earlier  data  sets,  only  means,  standard  deviations,  and 
correlations  were  available  and  no  individual  measurements 
were  known.  It  was  necessary,  therefor,  to  generate  data 
to  simulate  those  measurements. 

The  Computerized  Accommodated  Percentage  Evaluation 
(CAPE)  model  C Bittner,  19751  was  used  to  generate  the 
required  data  points.  This  model  required  as  entering 
arguments  the  mean  ana  standard  deviation  for  each  of  the 
four  variables,  as  well  as  a  matrix  of  correlations  between 
variables.  The  model  used  a  Monte  Carlo  process  to  generate 
data  points.  A  program  listing  is  included  in  Appendix  C 
(Appendix  D  presents  the  same  program  modified  for  use  with 
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the  IBM  360-67  computer  and  other  machines  using  Fortran  IV). 
The  CAPE  model  has  been  incorporated  in  the  Computerized 
Accommodated  Reach  Model  and  is  available  at  the  Naval 
Aviation  Development  Center,  Warminster,  Pennsylvania. 

Unfortunately,  some  of  the  values  required  for  generating 
the  data  points  were  missing  from  the  survey  reports. 
Specifically,  the  1964  data  included  no  information  on  leg 
length  and  the  1969  data  omitted  functional  reach.  It  was 
necessary  to  find  values  in  similar  populations  and  substitute 
them  for  those  missing.  Taking  values  from  other  populations 
required  the  assumption  that  concurrent  populations,  similar 
in  cultural,  racial,  and  demographic  compos itio. ,  and  having 
passed  similar  anthropometric  entrance  requirements,  will 
have  comparable  anthropometric  features.  That  assumption 
was  made  and  surrogate  values  for  the  missing  means  and  stan¬ 
dard  deviations  were  taken  from  populations  which  matched 
the  descriptions  of  the  populations  under  analysis  (1964  and 
1975),  both  subjectively  and  numerically.  Inter-variable 
correlations  were  determined  on  much  the  same  basis:  substi¬ 
tuting  correlations  from  similar  populations,  Ketcham-Weidl 
and  Bittner  C19763  had  substituted  correlations  from  a  data 
set  of  male  subjects  into  a  set  of  female  data  and  exper¬ 
ienced  little  loss  of  precision. 

For  the  1964  data,  the  mean  and  standard  deviation  for 
leg  length  were  assumed  to  be  43.82  and  2.01  inches,  respec¬ 
tively.  Those  values  were  established  in  a  1968  survey  of 
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U.S.  Army  helicopter  students  [Schane,  Littell  and  Moultree, 
1969].  Of  the  information  available,  the  population  of  that 
survey,  better  than  any  other,  approximated  the  1964  Naval 
aviation  population  with  respect  to  the  factors  which  Moroney 
Cl97l]  reported  as  influencing  differences  between  the  1964 
and  1969  Navy  data  sets.  The  Sitting  height-Leg  length  cor¬ 
relation  maintained  the  same  value  (0.45)  for  the  1969  and 
1975  data  sets  so  the  same  value  was  used  for  1964.  Func¬ 
tional  reach-Leg  length  and  Buttock  knee-Leg  length 
correlations  (0.639  and  0.860)  were  extracted  from  a  1970 
survey  of  U.S.  Army  aviators  [Churchill,  McConville,  Laubach, 
and  White,  1971],  again  because  of  the  similarities  in 
descriptions  of  the  1970  Army  and  1964  Navy  populations. 

For  the  1969  data,  Functional  reach  values  for  USAF 
flight  personnel  reported  by  Churchill  Cl97l]  were  used  for 
the  mean  and  standard  deviation  (31.24  and  1.62  inches). 

The  sitting  height-functional  reach  and  the  buttock  knee- 
functional  reach  correlations  were  assumed  to  be  the  same  as 
those  found  in  the  1975  data.,  0.44  and  0.63,  respectively. 
These  values  were  greater  than  those  of  the  1964  data  and 
their  use,  rather  than  the  1964  values,  would  influence 
error  in  the  conservative  direction,  that  is,  in  the  direc¬ 
tion  of  lesser  difference  between  univariate  and  raulti- 
•-i.iate  exclusion.  The  leg  length-functional  reach  corre¬ 
lation  was  taken  from  Churchill's  1970  survey  and  is  the 
same  value  assumed  for  the  1964  data. 
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Table  I 


CAPE  INPUTS  AND  OUTPUTS 
FOR  THE  1964  DATA 

Means,  Standard  Deviations  and  Ranges 


» 

i 


i 


*\ 


Variable 

Observed 
-  Data 

Generated 
-  Data 

Sitting  Height 
mean 
std.dev. 
range 

36.28 

1.25 

32.19-41.62 

36.29 

1.26 

31.81-40.25 

Functional  Reach 
mean 
std.dev. 
range 

31.51 

1.42 

27.26-36.31 

31.47 

1.40 

26.35-35.38 

Buttock-Knee  Length 
mean 
std.dev. 
range 

24.09 

1.00 

20.73-27.81 

24.10 

9.94 

21.06-27.11 

Leg  Length3- 
mean 
std.dev. 
range 

43.82 

2.01 

43.82 

1 . 99 

37 ’.97-49. 87 

aSchane,  W.P.,  Littell,  D.E.',  and  Moultree,  C.G., 
Selected  Anthropometric  Measurements  of  1,640  U.S.  Army 
Warrant  Officer  Candidate'  Fl ight'  Trainees ,  U.S.  Army 
Aeromedical  Research  Laboratory  Report  69-2,  as  reported 
in :  Anthropometric  Source  Book  Volume  II:  A  Handbook  of 
Ant hropdmetric  Data,  NASA  Reference  Publication  1024, 
1978,  p.  156. 
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I  Table  II 

CAPE  INPUTS  AND  OUTPUTS 

I  FOR  THE  1964  DATA 

Correlations 


i 

( 


Sitting  Functional  Buttock-  Leg 

Height  Reach  Knee  Length  Length 


Observed  Data 


Sitting  Height  1.0  .376  .382  .45a 

Functional  Reach  1.0  .586  ,639b 

Buttock-Knee  Length  1.0  .8613 

Leg  Length  1.0 


Generated  Data 


\ 

Sitting  Height  1.0 

.410 

.374 

.446 

Functional  Reach 

1.0 

.587 

.650 

|  Buttock-Knee  Length 

1.0 

.867 

Leg  Length 

1.0 

aSame  as  observed  value 

for  1969  and 

1975  samples. 

^Churchill,  E. ,  McConville,  J.T.,  Laubach,  L. ,  and 
White,  R.M.,  Anthropometry  of  U.S,  Army  Aviators-1970,  U.S. 
Army  Natick  Laboratories  Technical  Report  72-52-CE,'  December 
1971,  p.  278. 
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Table  III 


CAPE  INPUTS  AND  OUTPUTS 
FOR  THE  1969  DATA 

Means,  Standard  Deviations,  and  Ranges 


Variable 

Observed 

Data 

Generated 

Data 

Sitting  Height 
mean 
std.dev. 
range 

36.76 

1.21 

31.70-41.0 

36.77 

1.22 

32.43-40.61 

Functional  Reacha 
mean 
std.dev. 
range 

31.24 

1.62 

31.20 

1.60 

20.02-35.73 

Buttock-Knee  Length 
mean 
std.dev. 
range 

24.54 

1.26 

20.40-29.90 

24.55 

1.25 

20.67-28.31 

Leg  Length 
mean 
std.dev. 
range 

43.86 

2.08 

32.50-50.70 

43.86 

2.05 

38.14-50.02 

aChurchill,  E. ,  McConville,  J.T. ,  Laubach,  L. ,  and 
White,  R.M. ,  Anthropometry  of  U.S.  Army  Aviators-1970 ,  U.S. 
Army  Natick  Laboratories  Technical  Report  72-52-CE,  December 
1971,  p.  91. 
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Table  IV 

CAPE  INPUTS  AND  OUTPUTS 
FOR  THE  1969  DATA 

Correlations 


Sitting 

Functional 

Buttock- 

Leg 

Height 

Reach 

Knee-Length  Length 

Observed  Data 

Sitting  Height 

1.0 

,44a 

.40 

.45 

Functional  Reach 

1.0 

.  63a 

.639b 

Buttock-Knee  Length 

1.0 

.86 

Leg  Length 

1.0 

Generated  Data 

Sitting  Height 

1.0 

.473 

.393 

.449 

Functional  Reach 

1.0 

.629 

.652 

Buttock-Knee  Length 

1.0 

.801 

Leg  Length 

1.0 

aSame  as  observed  value  in  1975. 

^Churchill,  E. ,  McConville,  J.T. ,  Laubach,  L. ,  and 
White,  R.M.,  Anthropometry  of  U.S,  Army  Aviators-1970,  U.S. 
Army  Natick  Laboratories  Technical  Report  72-53-CE,  December 
1971,  p.  278. 
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Table  V 

DATA  SET  COMPARISON 


Means,  Standard  Deviations,  and  Ranges 


Variable 

1964 

1969 

1975 

Sitting  Height 

mean 

36.28 

36.76 

36.61 

std.dev. 

1.25 

1.21 

1.15 

range 

32.19-41.62 

32.43-40.61 

32.90-40.00 

Functional  Reach 

mean 

31.51 

31.24 

30.89 

std.dev. 

1.42 

1.62 

1.16 

range 

27.26-36.31 

26.02-35.73 

27.10-34.60 

Buttock-Knee  Length 

mean 

24.09 

24.54 

24.05 

std.dev. 

1.00 

1.26 

1.07 

range 

20.73-27.81 

20.67-28.31 

20.70-26.80 

Leg  Length 

mean 

43.82 

43.86 

42.89 

std.dev. 

2.01 

2.08 

1.89 

range 

37.97-49.87 

38.15-50.02 

37.10-48.20 
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Table  VI 


DATA  SET  COMPARISON 
Correlations 


1964 

Sitting 

Height 

Functional 

Reach 

Buttock- 
Knee  Length 

Leg 

Length 

Sitting  Height 

1.0 

.376 

.382 

.45 

Functional  Reach 

1.0 

.586 

.639 

Buttock-Knee  Length 

1.0 

.86 

Leg  Length 

1.0 

1969 


Sitting  Height  1.0 

.44 

.40 

.45 

Functional  Reach 

1.0 

.63 

.639 

Buttock-Knee  Length 

1.0 

.86 

Leg  Length 

1.0 

1975 


Sitting  Height  1.0 

.44 

.40 

.45 

Functional  Reach 

1.0 

.63 

.61 

Buttock-Knee  Length 

1.0 

.79 

Leg  Length 

1.0 
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When  the  assumed  values  described  above  were  included 


in  the  data  analysis,  the  requirements  for  CAPE  input  were 
complete.  The  inputs  to  CAPE  are  listed  in  Tables  I 
through  IV  under  Observed  Data.  One  thousand  subjects  were 
generated  for  the  1964  and  for  the  1969  data  sets.  Together 
with  the  1975  data  in  its  original,  as  observed  form,  the 
result  was  three  similar  data  sets  with  sample  sizes  of 
1000,  1000,  and  936.  The  validity  of  this  model's  perfor¬ 
mance  has  been  demonstrated  with  a  correlation  between 
empirical  and  generated  results  of  0.997  to  0. 999  tBittner , 
1974J.  For  the  1964  and  1969  data  sets,  the  CAPE  generated 
output  was  analyzed  to  insure  that  the  means,  standard 
deviations,  and  correlations  of  the  generated  data  were 
actually  those  sought.  The  values  used  as  inputs  to  CAPE 
and  those  resulting  from  analysis  of  the  generated  data  are 
shown  in  Tables  I  through  IV.  Tables  V  and  VI  compare  the 
summary  statistics  for  all  three  data  sets. 
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IV.  ANALYSIS  OF  DATA 


As  a  result  of  the  data  generating  procedure,  all  three 
data  sets  included  a  value  for  each  of  the  four  relevant 
measurements  for  each  subject.  The  samples  were  then 
examined  more  closely  to  determine  which  subjects  in  each 
sample  would  be  excluded,  either  by  design  constraints  (5th 
to  95th  percentiles  or  3rd  to  98th  percentiles)  or  by  air¬ 
craft  constraints  specified  by  NAVAIRINST  3710.9. 

A.  PERCENTAGES  EXCLUDED 

Fortran  program  SCREEN  was  used  to  count  the  subjects 
who  were  too  large  or  too  small  to  satisfy  anthropometric 
requirements.  For  each  of  the  three  samples,  identical 
screening  operations  were  conducted.  Each  subject  was 
examined  and  excluded  if  any  one  or  more  of  the  four 
measurements  under  consideration  was  outside  prescribed 
limits.  Each  subject's  anthropometric  features  were  tested 
against  each  cutoff  limit.  Thus  an  individual  might  be 
excluded  on  both  functional  height  and  sitting  height  but 
not  on  buttock-knee  length  and  leg  length.  For  each  elimin¬ 
ation  encountered,  the  subject  was  counted  as  being 
eliminated  and  each  variable  causing  an  elimination  was 
tallied.  At  the  end  of  each  sample,  the  resultant  totals 
were  converted  to  percentages  of  the  total  sample,  yielding 
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a  percentage  eliminated  by  each  of  the  four  variables  and 
a  total  exclusion  resulting  from  the  net  effect  of  the  four 
variables'  eliminations. 

The  prescribed  limits  mentioned  above  were  set  equal  to 
the  percentile  values  in  the  design  specification  (5th  and 
95th  or  3rd  and  98th  percentiles).  Then  the  limits  were 
set,  successively,  to  the  anthropometric  limits  of  each 
aircraft  for  which  anthropometric  coding  had  been  estab¬ 
lished  CNAVAIRINST  3710.93. 

1.  Design  Constraints 

To  screen  the  samples  by  design  specification,  the 
subjects  were  screened  to  eliminate  those  with  any  of  the 
four  measurements  less  than  the  5th  percentile  or  above  the 
95th  percentile  of  the  1964  data,  the  design  standard  OlIL- 
STD-1472B3.  Then  the  screening  cutoff  points  were  changed 
to  correspond  to  the  3rd  and  98th  percentiles  CNAVAIR  SD-24K, 
1973],  and  the  screening  process  was  repeated. 

It  is  interesting  to  note  at  this  point  that  percen¬ 
tile  values  for  leg  length  of  the  1964  data  do  not  exist 
since  that  measurement  was  not  taken  in  the  1964  survey. 
Still,  the  Navy  considers  leg  length  to  be  a  critical  dimen¬ 
sion  in  that  it  is  one  of  the  measurements  included  in  the 
Anthropometric  Compatibility  Assignment  Program.  Critical 
dimensions  are  also  the  basis  of  the  design  specification 
since  '...design  limits  shall  be  based  upon  a  range  from  the 
5th  percentile  to  the  95th  percentile  values  for  critical 
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body  dimensions '  CMIL-STD-1472B3.  Since  the  percentile 
values  were  not  available,  values  used  for  leg  length 
percentiles  were  determined  from  the  CAPE  generated  sample 
of  1000  subjects,  described  in  Chapter  III,  DATA  PREPARATION. 

The  design  specification  percentile  screens  resulted 
in  the  maximum  exclusion  percentage  to  be  expected  if  air¬ 
craft  were  designed  to  accommodate  only  the  specified 
percentiles,  and  no  more,  for  each  dimension.  This  result 
amounts  to  a  worst  case  exclusion  and  could  occur  only  if 
a  design  exactly  met  the  bare  minimum  accommodation  in  each 
variable,  a  very  unlikely  event,  and  one  which  would  still 
not  meet  the  requirement  to  accommodate  90  percent  of  the 
user  population  as  specified  by  MIL-STD-1472B.  The  percen¬ 
tile  screen  results,  shown  in  Table  VII,  show  that  cumulative 
exclusion  can  greatly  exceed  the  maximum  single  variable 
elimination.  For  example,  the  1969  data  screened  on  the 
5th  to  95th  percentiles  shows  a  total  exclusion  of  40.4 
percent  but  the  highest  single  variable  elimination  is  the 
21  percent  excluded  by  buttock-knee  length. 
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Table  VII 


Design  Specification  Exclusions  for 
the  5-95  Percentiles  and  the  3-98  Percentiles 


Variable 

1964 

1969 

1975 

5th  to 

95th  Percentile 

Percentage  Excluded 

Sitting  Height 

11.1 

11.5 

7.7 

Functional  Reach 

8.7 

14.6 

8.4 

Buttock-Knee  Length 

9.1 

21.0 

13.2 

Leg  Length 

9.8 

11.3 

11.8 

Cumulative 

26.4 

40.4 

26.7 

3rd  to 

98th  Percentile 

Percentage  Excluded 

Sitting  Height 

5.0 

4.7 

2.7 

Functional  Reach 

4.8 

9.4 

5.9 

Buttock-Knee  Length 

5.4 

11.6 

6.4 

Leg  Length 

4.9 

4.7 

6.9 

Cumulative 

14.3 

22.7 

14.3 
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The  difference  between  cumulative  exclusion  and  the 


largest  univariate  exclusion  figure,  which  could  be  taken 
falsely  as  an  upper  bound,  is  due  to  the  non-unity  corre¬ 
lation  between  variables.  Although  some  anthropometric 
models  have  described  all  anthropometric  dimensions  as  a 
specific  multiple  of  height  t^Roozbazar,  19793  with  the 
implicit  assumption  of  intervariable  correlation  equal  to 
1.00,  those  models  fail  to  recognize  the  variable  propor¬ 
tions  of  people  and  would  lead  to  the  acceptance  of  the 
largest  univariate  exclusion  as  the  net  cumulative  exclu¬ 
sion.  The  assumption  of  a  correlation  of  1.00  amounts  to 
treating  the  population  as  if  the  man  with  95th  percentile 
height  must  also  have  95th  percentile  leg  length,  95th 
percentile  shoulder  width,  and  95th  percentile  in  all 
measurements,  i.e. ,  'the  95th  percentile  man.'  If  that  were 
the  case,  the  percentile  screens  would  have  eliminated  the 
same  subjects  on  all  variables,  as  well  as  on  the  cumulative 
exclusion.  If,  at  the  other  extreme,  intervariable  corre¬ 
lation  were  zero,  the  single  variable  eliminations  would  be 
independent  and  their  arithmetic  sum  would  appear  as  the 
cumulative  exclusion. 

In  reality,  some  subjects  with  leg  lengths  shorter 
than  the  5th  percentile  also  have  sitting  heights  less  than 
the  5th  percentile.  Others  have  short  legs  but  sitting 
heights  nearer  the  mean.  The  evidence  of  variable  propor¬ 
tions  along  with  variable  sizes  is  found  in  the  cumulative 
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exclusion  values.  Generally,  the  cumulative  exclusion  is 
less  than  the  sum  of  the  single  variable  eliminations  but  is 
greater  than  any  of  the  single  value  eliminations.  Only 
rounding  error  could  cause  the  cumulative  exclusion  to 
exceed  the  sum  of  the  single  variable  eliminations.  The 
cumulative  exclusion  is  generally  as  small  as  the  largest 
single  variable  when  only  one  variable  resulted  in  any 
elimination. 

2.  Aircraft  Constraints 

The  specific  aircraft  screens  were  accomplished  with 
the  same  technique  as  used  on  the  design  specification 
screens.  The  cut  points  for  each  variable  were  the  values 
corresponding  to  each  aircraft's  anthropometric  restrictions 
specified  by  NAVAIRINST  3710.9.  Then,  for  each  aircraft, 
the  three  samples  were  examined  to  eliminate  subjects  whose 
anthropometric  measurements  were  large  enough,  or  small 
enough,  to  be  excluded  by  the  aircraft's  restrictions.  The 
number  of  subjects  eliminated  by  each  measurement  and  the 
cumulative  exclusions  were  totaled  and  converted  to  a  percen¬ 
tage  of  the  sample.  Different  aircraft  with  the  same 
anthropometric  restrictions  were  consolidated  into  eighteen 
groups  and  the  screens  were  executed,  resulting  in  the  1964, 
1969,  and  1975  samples  being  matched  to  all  aircraft  types. 
The  percentage  exclusions  are  shown  in  Table  VIII,  which 
lists  aircraft  types  in  alphabetical  order. 
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Table  VIII 


Exclusion 

by  Aircraft  Type 

Aircraft  Code  Variable 

Exclusion  Percentage 

1964  1969  1975 

A-3 

- 

sit . ht . 

— 

- 

- 

9 

fnct. rch. 

0.6 

2.6 

0.3 

— 

b-knee  lnth. 

— 

— 

— 

0 

leg  lnth. 
cumulative 

0.1 

0.6 

0.0 

2.6 

0.1 

0.4 

A-4E 

089 

sit .ht . 

0.9 

1.7 

0.4 

A-4F 

9 

fnct . rch. 

0.6 

2.6 

0.3 

789 

b-knee  lnth. 

1.0 

6.6 

0.6 

0 

leg  length 
cumulative 

0.1 

2.5 

0.0 

10.3 

0.1 

1.5 

A-4M 

0 

sit . ht . 

0.2 

0.1 

0.0 

9 

fnct . rch. 

0.6 

2.6 

0.3 

789 

b-knee  lnth. 

1.0 

6.6 

0.6 

0 

leg  length 
cumulative 

0.1 

1.8 

0.0 

9.3 

0.1 

1.1 

A-6A 

06789 

sit .ht . 

5.0 

9.6 

4.0 

A-6B 

— 

fnct. rch. 

- 

- 

- 

A-6E 

9 

b-knee  lnth. 

0.0 

0.4 

0.0 

* 

leg  length 
cumulative 

5.0 

9.9 

4.0 

A-7A 

089 

sit . ht . 

0.9 

1.7 

0.4 

A-7C 

6789 

fnct . rch. 

7.4 

13.6 

8.8 

A-7E 

9 

b-knee  lnth. 

0.0 

0.4 

0.0 

0 

leg  length 
cumulative 

0.1 

8.2 

0.0 

15.6 

0.1 

9.2 

AV-8A 

09 

sit.ht. 

0.4 

0.8 

0.1 

9 

fnct. rch. 

0.6 

2.6 

0.3 

9 

b-knee  lnth. 

0.0 

0.4 

0.0 

leg  length 
cumulative 

1.0 

3.8 

0.4 

C-118 

sit.ht. 

C-131 

- 

fnct . rch. 

— 

M* 

• 

— 

b-knee  lnth. 

- 

- 

0 

leg  length 
cumulative 

0.1 

0.1 

0.0 

0.7 

0.1 

1.6 
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Table  VIII  (Continued) 
Exclusion  by  Aircraft  Type 


Exclusion  Percentage 

Aircraft  Code  Variable  1964  1969  1975 


CH-53 

01 

sit .ht. 
fnct . reh. 
b-knee  Inth. 
leg  length 
cumulative 

EA-3 

9 

0 

sit .ht . 
fnct.rch. 
b-knee  lnth. 
leg  length 
cumulative 

EA-6B 

06789 

9 

sit .ht. 
fnct . rch. 
b-knee  lnth. 
leg  length 
cumulative 

EA-6B 

<LF) 

06789 

9 

9 

sit.ht. 
fnct . rch. 
b-knee  lnth. 
leg  length 
cumulative 

F-4B(F) 

F-4J(F) 

F-4N(F) 

F-4S(F) 

0789 

89 

9 

0 

sit . ht . 
fnct . rch. 
b-knee  lnth. 
leg  length 
cumulative 

F-4B(R) 

F-4J(R) 

F-4N(R) 

F-4S(R) 

89 

9 

sit.ht . 
fnct.rch. 
b-knee  lnth. 
leg  length 

cumulative 


0.7 

0.7 

1.6 

0.7 

0.7 

1.6 

0.6 

2.6 

0.3 

0.1 

0.0 

0.1 

0.6 

2.6 

0.4 

5.0 

9.6 

4.0 

0.0 

0.4 

0.0 

5.0 

9.9 

4.0 

5.0 

9.6 

4.0 

0.6 

2.6 

0.3 

0.0 

0.4 

0.0 

5,6 

12.5 

4.3 

2.0 

3.9 

1.7 

1.8 

4.3 

1.9 

0.0 

0.4 

0.0 

0.1 

0.0 

0.1 

3.8 

8.4 

3.6 

0.7 

1.6 

0.4 

0.0 

0.4 

0.0 

0.7 

2.0 

0.4 

Table  VIII  (Continued) 
Exclusion  by  Aircraft  Type 


Exclusion  Percentage 


Aircraft 

Code 

Variable 

1964 

1969 

1975 

F-8D 

0789 

sit .ht . 

2.0 

3.9 

1.7 

F-8J 

- 

fnct .rch. 

- 

- 

- 

9 

b-knee  Inth. 

0.0 

0.4 

0.0 

— 

leg  length 

- 

- 

- 

cumulative 

2.0 

4.2 

1.7 

F-14(F) 

0 

sit .ht . 

0.2 

0.1 

0.0 

9 

fnct . rch. 

0.6 

2.6 

0.3 

9 

b-knee  Inth. 

0.0 

0.4 

0.0 

- 

leg  length 

- 

- 

- 

cumulative 

0.8 

3.1 

0.3 

F-14(R) 

_ 

sit .ht . 

— 

— 

- 

fnct .rch. 

- 

- 

- 

9 

b-knee  Inth. 

0.0 

0.4 

0.0 

- 

leg  length 

- 

- 

- 

cumulative 

0.0 

0.4 

0.0 

H-2 

sit .ht . 

— 

89 

fnct . rch. 

1.8 

4.3 

1.9 

- 

b-knee  Inth. 

— 

- 

- 

0 

leg  length 

0.1 

0.0 

0.1 

cumulative 

1.8 

4.3 

1.9 

OV-IO 

sit .ht . 

— 

9 

fnct. rch. 

0.6 

2.6 

0.3 

9 

b-knee  Inth. 

0.0 

0.4 

0.0 

- 

leg  length 

- 

- 

- 

cumulative 

0.6 

3.0 

0.3 

RA-5C 

09 

sit .ht . 

0.4 

0.8 

0.1 

(F) 

- 

fnct .rch. 

- 

- 

- 

9 

b-knee  Inth. 

0.0 

0.4 

0.0 

0 

leg  length 

0.1 

0.0 

0.1 

cumulative 

0.5 

1.2 

0.2 

RF-4B 

0789 

sit .ht . 

2.0 

3.9 

1.7 

(F) 

89 

fnct . rch. 

1.8 

4.3 

1.9 

9 

b-knee  Inth. 

0.0 

0.4 

0,0 

0 

leg  length 

0.1 

0.0 

0.0 

cumulative 

3.8 

8.4 

3.6 
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Table  VIII  (Continued) 
Exclusion  by  Aircraft  Type 


Exclusion  Percentage 

Aircraft  Code 

Variable 

1964 

1969 

1975 

RF-4B 

89 

sit . ht . 

0.7 

1.6 

0.4 

(R) 

— 

fnct . rch. 

- 

- 

- 

9 

b-knee  Inth. 

0.0 

0.4 

0.0 

- 

leg  length 

- 

- 

- 

cumulative 

0.7 

2.0 

0.4 

RF-8 

0789 

sit . ht . 

2.0 

3.9 

1.7 

— 

fnct . rch. 

— 

- 

— 

9 

b-knee  lnth. 

0.0 

0.4 

0.0 

- 

leg  length 

- 

- 

- 

cumulative 

2.0 

4.2 

1.7 

S-3 

sit . ht . 

— 

fnct .rch. 

- 

- 

— 

9 

b-knee  lnth. 

0.0 

0.4 

0.0 

- 

leg  length 

- 

- 

- 

cumulative 

0.0 

0.4 

0.0 

T-2C 

0 

sit .ht . 

0.2 

0.1 

0.0 

TA-4 

9 

fnct . rch. 

0.6 

2.6 

0.3 

TAV-8 

9 

b-knee  lnth. 

0.0 

0.4 

0.0 

0 

leg  length 

0.1 

0.0 

0.1 

cumulative 

0.8 

3.1 

0.4 

U-16 

sit .ht. 

- 

fnct. rch. 

— 

— 

* 

- 

b-knee  lnth. 

— 

- 

- 

0 

leg  length 

0.1 

0.0 

0.1 

cumulative 

0.1 

0.0 

0.1 

NOTE: 

(F)  - 

Front  seat 

(R)  ~ 

Rear  seat 

(LF)  - 

Left  front  seat 
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B.  RESULTS 


The  design  criterion  requiring  accommodation  of  the  5th 
and  95th  percentiles  results  in  exclusion  of  over  26  percent 
of  the  population.  That  result  fails  to  meet  the  goal  of 
90  percent  accommodation.  Designing  to  the  3rd  and  98th 
percentiles,  instead  of  the  5th  and  95th,  reduced  exclusion 
to  14  percent.  That  result  still  does  not  meet  the  90  per¬ 
cent  accommodation  goal. 

No  aircraft  type's  coding  eliminated  as  much  as  ten  per¬ 
cent  of  the  1964  sample.  The  A- 7  exclusion  was  8.2  percent 
and  was  the  worst  case.  The  accommodation  by  all  aircraft 
of  more  than  90  percent  would  seem  to  indicate  that  the 
cockpit  designs  included  a  margin  of  accommodation  allowance 
in  addition  to  the  minimum  required.  Such  a  safety  factor 
in  design  is  not  unexpected  but  is  still  technically  an 
unrequired  bonus. 

The  exclusion  percentage  was  not  constant,  but  changed 
from  one  sample  to  the  next.  The  greatest  exclusions  were 
found  in  the  1969  data  while  the  1964  and  1975  cumulative 
exclusions  were  about  the  same.  Although  cumulative  exclu¬ 
sions  were  nearly  equal,  the  contributing  factors  had 
varying  proportions.  Sitting  height  eliminations  decreased 
and  eliminations  due  to  buttock-knee  length  and  leg  length 
increased. 

The  1969  data  exhibited  other  features  of  incongruity 
which  detracted  from  the  credibility  of  the  three  data  sets 
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Figure  3 
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Comparison  of  Selected  Variables 
and  Standard  Deviations 


Variable 


Height 


Leg 

Length 


Sitting 

Height 


Buttock- 
Knee  Length 


Inches 


Year 


1964  1969  1975 


73- 

72- 

71- 

70- 

69- 

68- 

67- 


46- 

45- 

44- 

43- 

42- 

41- 


38- 

37- 

36- 

35- 


27- 

26- 

25- 

24- 

23- 

22- 


No 

Data 


1  1  1 
I  i  i 


NOTE:  «  -  mean 

J  -  one  standard  deviation  from  mean 
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taken  as  a  whole.  These  effects  reflected  the  presence  of 
unidentified  factors,  not  entirely  explained  by  the  facts 
available.  While  height  increased  steadily  from  1964  to 
1975,  its  components  did  not.  As  seen  in  Figure  3,  which 
shows  mean  values  and  one  standard  deviation  on  either  side 
of  the  mean,  mean  height  increased  from  69.94  to  70.15 
inches,  a  rate  of  0.427  inches  per  decade.  That  rate  con¬ 
firms  the  USAF  prediction  of  0.418  inch  per  decade  t Roebuck, 
et.  al.3.  However,  the  increased  height  does  not  appear  as 
an  increase  in  the  other  long  bone  measurements  which  are 
components  of  height.  From  1969  to  1975,  both  mean  sitting 
height  and  mean  leg  length  appear  to  have  decreased.  The 
increase  in  height  should  be  traceable  to  an  increase  in 
sitting  height,  an  increase  in  leg  length,  or  both,  but 
neither  was  noted.  Explanations  other  than  erroneous  data 
are  possible,  but  not  supported  by  knowledge  of  the  popula¬ 
tion.  It  could  be  hypothesized  that  an  increasing 
concentration  of  fat  in  the  buttocks  could  increase  both 
sitting  height  and  leg  length  measurements  while  not 
affecting  height.  This  effect  has  not  been  observed. 

Another  possible  explanation,  operator  induced  loss  of 
precision,  would  be  accompanied  by  increases  in  the  variation. 
An  examination  of  Table  V  and  Figure  3  indicate  that  standard 
deviations  remained  relatively  constant,  indicating  the 
absence  of  excessive  random  error  by  equipment  operators. 
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The  inclusion  of  a  constant  error  in  any  of  the  measure 
ments  in  one  or  more  data  sets  could  account  for  the 
apparent  inconsistency.  This  kind  of  error  should  be 
precluded  by  the  use  of  standard  procedures  and  calibrated 
equipment.  The  1969  data  were  collected  from  measurements 
taken  with  a  device  for  which  no  calibration  was  provided. 
There  was  no  calibration  procedure  or  equipment  associated 
with  the  integrated  anthropometric  measuring  device  until 
after  the  introduction  of  the  improved  device  in  1971. 
Although  a  means  of  calibrating  the  improved  anthropometric 
measuring  device  was  provided  after  1971,  the  calibration 
equipment  is  no  longer  available  and  the  date  of  the  last 
calibration  is  unknown. 

The  largest  contributor  to  the  apparent  error  is  the 
diminished  leg  length  in  1975.  The  reduction  of  nearly  an 
inch  is  difficult  to  believe.  Leg  length  is  also  a  diffi¬ 
cult  measurement  to  take  accurately  CMoroney,  19803.  The 
position  of  the  subject  being  measured  (sitting  erect  with 
his  right  leg  maximally  extended  horizontally  in  front  of 
him)  is  difficult  for  some  individuals  to  attain.  The 
inflexibility  of  some  muscular  legs  prevents  the  leg  from 
being  straightened  completely.  Methods  aimed  at  straighten 
ing  the  leg  can  result  in  the  hips  rolling  forward,  causing 
the  buttocks  to  move  outward  from  the  seat  back.  The 
measured  leg  length  is  then  either  too  long  (with  the  leg 
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straight  and  buttocks  forward)  or  too  short  (with  the  leg 
slightly  bent). 

The  1975  data  also  appeared  to  have  been  influenced  by 
rounding.  The  frequency  of  whole  inch  and  half  inch  measure¬ 
ments  is  greater  than  expected.  The  bias  incurred  in  the 
mental  rounding  process  is  indeterminate  and  no  effort  was 
made  to  correct  for  it.  The  existence  of  the  effect  indi¬ 
cates  a  need  for  a  procedural  modification. 

The  exclusion  determined  here  were  based  on  the  consider¬ 
ation  of  only  four  variables.  Although,  of  the  available 
measurements,  they  were  considered  to  be  the  most  important 
with  respect  to  accidents,  injuries,  and  aircraft  controlla¬ 
bility,  CMoroney,  19803  they  are  not  the  only  measurements 
relevant  to  accommodation.  Administrative  limitations  set 
by  NMPC  established  that  no  more  than  four  variables  would 
be  used.  The  practice  of  collecting  anthropometric  data  at 
the  flight  training  entry  point  and  the  specific  measurements 
taken  there  determined  which  measurements  could  be  used. 

The  inclusion  of  additional  measurements,  such  as  shoulder 
width,  could  only  increase  exclusions.  The  substitutions  of 
other  measurements  could  affect  the  exclusion  results 
similarly. 


V.  SUMMARY  AND  CONCLUSIONS 


The  Navy  requires  airplane  cockpit  designs  to  accom¬ 
modate  ninety  percent  of  the  Naval  aviation  population.  In 
support  of  that  goal,  designs  are  required  to  accommodate 
the  5th  to  95th  percentiles  (or  the  3rd  to  98th  percentiles) 
of  critical  body  dimensions.  The  success  or  failure  of 
aircraft  designers  in  accommodating  the  population  had  not 
been  quantified,  heretofore.  By  examining  anthropometric 
data  from  three  populations  (1964,  1969,  and  1975),  two  of 
which  were  generated  by  the  Computerized  Accommodated  Percen 
tage  Evaluation  Model  (CAPE),  exclusions  allowed  by  the 
design  specification  and  exclusions  associated  with  each 
aircraft  type  were  determined.  The  numerical  values  corres¬ 
ponding  to  the  percentiles  named  in  the  specification  (5  to 
95  or  3  to  98)  were  compared  to  the  measurements  of  each 
subject  in  each  population  to  determine  the  proportion  of 
subjects  of  each  population  having  at  least  one  measurement 
outside  the  limits  of  accommodation  and  therefor  excluded. 
The  results  were  the  exclusions  expected  from  designing  to 
the  specified  percentiles.  The  aircraft  exclusions  wore 
found  by  comparing  aircraft  anthropometric  exclusion  codes, 
assigned  by  NAVAIR,  and  the  measurements  corresponding  to 
those  codes,  to  the  three  populations.  That  process 
resulted  in  an  exclusion  percentage  for  each  aircraft  and 
each  population. 
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It  was  found  that : 


1.  The  design  specification  requiring  accommodation  of  the 
5th  to  95th  percentiles  excluded  26  percent  of  the  specified 
population. 

2.  Designing  to  the  3rd  to  98th  percentiles  excluded  14 
percent  of  the  population. 

3.  Exclusions,  both  those  allowed  by  the  specification  and 
those  peculiar  to  each  aircraft,  varied  over  time. 

4.  All  aircraft  accommodate  more  than  the  required  ninety 
percent  of  the  most  recent  population  sample. 

5.  The  proportion  of  exclusion  caused  by  a  given  variable 
changed  over  time. 

6.  There  are  inconsistencies  in  the  data. 

A.  DESIGN  SPECIFICATION 

The  design  specification  should  result  in  at  least  ninety 
percent  of  the  user  population  being  accommodated  by  each 
aircraft.  Reference  to  the  5th  and  95th  percentiles  and  to 
the  3rd  and  98th  percentiles  of  critical  body  dimensions 
serves  only  to  fog  the  issue.  The  imaginary  ’95th  percentile 
man,'  consisting  of  a  95th  percentile  measurement  for  all 
variables,  is  assumed  fi*ora  the  requirement  to  design  to  his 
dimensions.  The  tacit  assumption  that  anthropometric 
features  can  be  assembled  and  generalized  to  form  a  95th 
percentile  man  is  false  and  misleading  since  it  assumes  a 
correlation  of  1.00  between  anthropometric  features.  The 
specification  would  be  more  effective  if  it  were  to  require 
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accommodation  of  ninety  percent  of  the  population  and  remain 
silent  on  the  accommodation  of  singular  dimensions.  Deletion 
of  all  reference  to  percentiles  in  the  specification  would  be 
a  productive  change.  However,  anthropometric  data  should 
still  be  reported  in  percentiles  for  use  in  univariate 
applications. 

The  Navy  is  currently  enjoying  the  benefit  of  an  unre¬ 
quired  bonus  in  the  area  of  user  accommodation.  Ninety 
percent  accommodation  was  required,  more  than  that  is 
delivered,  at  least  for  the  four  variables  examined,  based 
on  the  1975  data.  Although  there  appears  to  be  nothing  to 
indicate  that  this  bonus  will  not  continue,  there  is  like¬ 
wise  nothing  to  guaranty  that  it  shall.  If  a  future  aircraft 
design  were  successful  in  accommodating  exactly  the  required 
ninety  percent,  the  consequences  would  amount  to  exclusions 
greater  than  those  being  experienced  on  any  current  Navy 
aircraft  and  the  design  specification  would  still  have  been 
satisfied.  Since  there  is  feeling  in  the  Navy  that  current 
user  accommodation  is  insufficient  and  since  the  ninety 
percent  accommodation  requirement  is  being  met,  either  the 
Navy  must  change  the  ninety  percent  requirement  or  adjust  its 
attitude  toward  current  accommodations.  The  answer  may  be 
found  in  partitioning  the  user  population  into  groups,  each 
of  which  currently  flies  in  a  particular  type  aircraft. 

Then  specify  the  'user  population1  to  be  one  of  those  groups, 
rather  than  all  flying  personnel  in  the  Navy,  and  require 


accommodation  of  the  entire  group.  This  solution,  while 
easy  to  conceive,  would  be  difficult  to  administer. 

B.  COCKPIT  RESTRICTIONS 

The  exclusions  enumerated  in  Table  VIII  indicate  that 
the  Navy  has  a  minimal  problem,  on  the  global  level,  with 
incompatible  planes  and  personnel.  The  attention  that  the 
problem  has  received  would  hardly  seem  justified  by  the 
miniscule  exclusions  indicated  by  the  analysis.  The 
expense  in  terms  of  money,  man-hours,  and  effort  reflected 
in  the  production  of  instructions  by  OPNAV,  BUMED,  CNATRA, 
and  NAVAIR,  together  with  the  resultant  effort  necessary  to 
comply  with  their  requirements  must  have  been  justified  by 
a  judgement  that  a  problem  existed  but  the  numbers  in  Table 
VIII  do  not  reflect  the  magnitude  of  the  problem.  A  reason 
that  more  impressive  numbers  don't  appear  in  the  table 
might  be  in  the  aircraft  codes'  inaccuracy,  or  in  their 
failure  to  account  for  influential  variables. 

The  accuracy  of  the  aircraft  codes  is  dependent  on  a 
judgement  factor  on  the  part  of  the  people  who  measure  air¬ 
craft  cockpits.  The  anthropometric  codes  assigned  to 
aircraft  are  based  on  cockpit  measurements  adjusted  for 
clothing  and  equipment  worn  by  the  user.  Those  adjustments 
cannot  allow  for  all  variations.  The  codes  assigned  to 
aircraft  can  also  be  affected  by  forecasts  of  the  consequences 
of  the  codes  assigned.  The  prospect  of  excluding  an  unsuit¬ 
ably  large  portion  of  the  user  population  could  have 


influenced  aircraft  exclusion  code  assignments  in  the  direc¬ 
tion  of  minimal  effect. 

The  high  cost  of  error  does  not  appear  in  the  table  but 
undoubtedly  accounts  for  the  attention  given  to  such  unim¬ 
pressive  exclusion  figures.  The  cost  of  losing  an  airplane 
or  an  aircrew  is  considerable.  That  cost  makes  any  erroneous 
assignment  of  personnel  potentially  disastrous  and  may 
account  for  the  emphasis  in  the  area  of  aircrew  accommoda¬ 
tion. 

Additionally,  anthropometric  restrictions  can  affect  an 
officer's  career  rather  markedly  by  denying  him  assignment 
to  the  type  aircraft  he  is  motivated  to  fly.  That  fact 
makes  the  globally  small  exclusion  problem  a  crisis  on  the 
individual  level  and  explains  why  the  attention  level 
exceeds  that  expected  from  examining  the  exclusion  figures. 

C.  DATA  INCONSISTENCIES 

The  data  indicate  that  the  values  associated  with  anthro¬ 
pometric  features  shifted  over  time.  Although  the  exclusions 
by  design  specification  in  1964  and  those  in  1975  were  about 
the  same  (see  Table  VIII),  the  individual  variables  respon¬ 
sible  for  the  exclusions  were  of  varying  influence.  In  1964, 
sitting  height  caused  more  exclusions  than  it  did  in  1975, 
while  buttock-knee  length  and  leg  length  caused  more  in  1975 
than  in  1964.  The  1969  data  show  higher  exclusion  than 
either  of  the  other  two  data  sets.  Sitting  height,  buttock- 
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knee  length,  and  leg  length  all  peaked  in  1969,  accounting 
for  the  corresponding  peak  in  exclusions. 

The  exclusion  results  varied  erratically  over  time. 

There  are  inconsistent  effects  in  the  data  and  the  lack  of 
continuity  cannot  be  explained  with  the  information  avail¬ 
able.  The  leg  length  measurement  is  the  most  likely  source 
of  the  inconsistent  effects  and  the  discontinuance  of  leg 
length  as  a  critical  measurement  might  be  beneficial  if 
another  measurement  could  be  substituted.  Buttock-knee 
length  might  be  used  as  a  substitute  for  leg  length  since 
the  two  variables  are  well  correlated  (r=.8).  Alternatively, 
a  measurement  taken  in  a  sitting  position  approximating  a 
cockpit  seating  position  could  be  substituted.  Measuring 
from  the  heel  to  the  seat  back  via  the  front  edge  of  the 
seat  would  accomplish,  more  directly,  the  purpose  presently 
being  attempted  by  the  leg  length  measurement.  The  problems 
encountered  measuring  leg  length  would  be  eliminated  and  the 
measurements  of  personnel  and  of  aircraft  cockpits  would  be 
more  comparable  and,  consequently,  more  effective  in  matching 
personnel  to  airplanes.  Such  a  measurement  of  'functional 
leg  throw'  would  be  a  special  purpose  dimension  not  included 
in  previous  surveys.  Previous  surveys,  however,  were  not 
faced  with  the  special  problem  now  at  hand  and  the  cost  of 
designing  and  implementing  this  new  measurement  could  be 
recovered  in  the  prevention  of  a  single  aircraft  accident. 
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D.  DATA  LIMITATIONS 

Of  all  the  anthropometric  dimensions  which  might  be  con¬ 
sidered,  the  Navy  collects  data  on  eight  anthropometric 
features  (including  weight)  considered  relevant  to  flight 
safety.  Of  those  eight  variables,  only  four  are  considered 
in  the  process  of  assigning  personnel  to  aircraft.  The 
limitation  to  four  variables  is  not  necessarily  optimum  with 
respect  to  flight  safety  since  the  administratively  driven 
maximum  of  four  variables  was  the  effective  constraint.  The 
inclusion  of  additional  variables,  if  they  were  found  to  be 
relevant,  could  only  decrease  accommodation  further.  The 
decrease  could  be  dramatic  if  the  additional  variables  were 
poorly  correlated  to  those  already  considered. 

The  problems  arising  from  variables  in  combination  (but 
not  visible  in  single  variable  evaluation)  have  been  recog¬ 
nized  [CNATRAINST  13520.1,  19803  but  no  description  of  the 
interaction  between  variables  is  included  in  the  Anthropo¬ 
metric  Compatibility  Assignment  Program.  For  example,  the 
minimum  functional  reach  and  leg  length  necessary  to  reach 
controls  varies  as  the  position  of  the  seat  changes.  The 
position  of  the  seat  is  determined  largely  by  the  sitting 
height  of  its  occupant.  An  individual  with  a  short  sitting 
height  must  raise  the  seat  high  enough  to  allow  vision  over 
the  nose  of  the  aircraft.  As  the  seat  rises,  it  also  moves 
aft  slightly,  causing  the  rudder  pedals  to  be  adjusted  aft 
and  also  requiring  a  longer  functional  reach  to  enable  the 
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man  to  reach  the  controls.  Thus,  sitting  height  determines 
in  part  the  effective  minima  for  leg  length  and  functional 
reach  values,  making  required  leg  length  and  functional 
reach  distances  functions  of  sitting  height.  The  values  used 
for  anthropometric  coding,  however,  are  determined  irres¬ 
pective  of  seat  position  changes.  An  additional 
anthropometric  code  should  be  established  to  identify  those 
personnel  who  meet  all  the  limits  but  whose  combination  of 
anthropometric  features  could  create  problems. 

The  procedures  used  to  take  measurements  in  the  1969  and 
1975  data  sets  were  deficient  in  some  respects.  Most  notably, 
the  failure  to  calibrate  the  integrated  anthropometric 
measuring  device  was  unfortunate.  The  apparent  rounding  of 
measurements  also  induced  error.  The  calibration  deficiency 
can  be  corrected  by  instituting  a  requirement  to  document 
periodic  calibration  and  adjustments,  as  is  required  by  the 
Preventive  Maintenance  System.  The  rounding  error  could  be 
eliminated  by  converting  the  measuring  device  to  provide 
digital  displays  of  measurements.  Better,  but  also  more 
expensive,  an  automated  measuring  device  could  record 
measurements  without  requiring  the  operator  to  read  and 
record  numbers.  Such  a  device  would  also  prevent  the  oper¬ 
ator  from  rounding  measurements  or  inserting  any  bias  into 
the  data. 

The  necessity  to  draw  on  outside  sources  for  data  con¬ 
cerning  leg  length,  a  critical  body  dimension  about  which 
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there  is  no  data  in  the  design  specification  (1964  data), 
points  out  a  basic  deficiency  in  the  specification. 

Designers  do  not  consider  leg  length  in  the  design  of 
cockpits.  Instead,  they  use  buttock-knee  length  and  pop¬ 
liteal  height  sitting,  which  are  components  of  leg  length. 

The  assignment  process  would  be  more  consistent  if  similar 
variables  were  used  for  exclusion  codes. 

E.  CONCLUSIONS 

The  data  collection  system  which  supports  the  Anthropo¬ 
metric  Compatibility  Assignment  Program  consists  of 
measurements  taken  on  aircraft  cockpits  as  well  as  the 
equipment  and  procedures  used  to  measure  aviation  personnel. 
Many  inconsistencies  in  personnel  measurements  have  been 
noted  even  though  those  measurements  are  an  essential  ingre¬ 
dient  in  the  successful  operation  of  the  program.  The 
program  will  operate  no  more  effectively  than  its  weakest, 
or  limiting,  factor.  That  limiting  factor  appears  to  be  the 
measurement  of  personnel.  Inconsistencies  in  the  data  appear 
to  be  results  of  measurement  bias.  The  appearance  of  larger 
personnel  in  1969  and  corresponding  higher  exclusions  in 
that  population  are  more  likely  the  changes  of  measurement 
bias  than  any  real  effect  in  the  population. 

Measurement  error  could  be  reduced  by: 

1.  Periodically  calibrating  the  measurement  equipment. 

2.  Randomly  remeasuring  personnel  and  comparing  the  original 
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and  repeated  measurement.  If  significant  discrepancies  are 
noted,  corrective  action  should  be  taken. 

3.  Replacing  the  integrated  anthropometric  measuring  device 
by  one  using  digital  measurement  displays,  or  automated 
measurement  recording. 

The  consequences  of  failing  to  improve  the  Navy's 
personnel  anthropometric  measuring  procedure  will  amount  to 
negating  the  Anthropometric  Compatibility  Assignment  Program 
and  accepting  the  aircraft  accident  rate,  and  ejection  injury 
rate  which  were  sufficiently  undesirable  to  lead  to  the 
program's  establishment.  Additionally,  erroneous  measurement 
can  adversely  impact  on  officers'  career  development  patterns 
and  consequently  on  officer  personnel  retention. 


60 


APPENDIX  A 


Definitions  of  Measurements 


1.  Buttock-Heel  Length  -see  Leg  Length 

2.  Buttock-Knee  Length  -the  horizontal  distance  from 

the  rearmost  surface  of  the  buttocks  to  the  front  of 
the  kneecaps,  with  the  subject  sitting  erect. 

3.  Buttock-Heel  Length  -see  Leg  Length 

4.  Functional  Reach  -the  distance  from  the  wall  to 

the  tip  of  the  thumb  measured  with  the  subject's 
shoulders  against  the  wall,  his  arm  extended  forward, 
and  his  index  finger  touching  the  tip  of  his  thumb. 

5.  Height  -vertical  distance  from  the 

floor  to  the  top  of  the  head  with  the  subject  standing 
erect  in  bare  feet . 

6.  Knee  Height  Sitting  -the  height  from  the  footrest 

surface  to  the  musculature  just  above  the  knee. 

7.  Leg  Length  -the  distance  from  the  base 

of  the  heel  to  a  wall  against  which  the  subject  sits 
erect  with  his  leg  maximally  extended  forward  along 
the  sitting  surface. 

8.  Sitting  Height  -the  height,  from  the  sitting 

surface,  to  the  top  of  the  head,  with  the  subject 
sitting  erect. 

9.  Stature  -see  height 

10.  Popliteal  Height  Sitting  -the  height  of  the  underside  of 
the  upper  leg  above  the  footrest  surface. 
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APPENDIX  B 


Anthropometric  Codes  as  Percentiles 
of  the  1964  Population 

Variable  Code  Measurement  Equivalent 

Interval  Percentile 


SITTING  HEIGHT  9 

8 

7 
6 

5 

4 

3 
2 
1 
0 

FUNCTIONAL  REACH  9 

8 

7 

6 

5 

4 

3 
2 
1 
0 

BUTTOCK-KNEE  LENGTH  9 

8 

7 

6 

5 

4 

3 
2 
1 
0 

LEG  LENGTH  9 

8 
7 

6 

5 

4 
3 
2 
1 
0 


40.0-41.0 

99+ 

39.5-39.9 

99+ 

39.0-39.4 

98-99 

38.5-38.9 

96-97 

38.0-38.4 

91-95 

35.0-37.9 

15-90 

34.0-34.9 

3-14 

33.0-33.9 

<3 

32.5-32.9 

<1 

32.0-32.4 

<L 

£27.9 

<1 

28.0-28.4 

<1 

28.5-28.9 

1-2 

29.0-29.4 

3-6 

29.5-30.4 

7-25 

30.5-30.9 

26-39 

31.0-31.4 

40-50 

31.5-32.4 

51-75 

32.5-33.9 

76-94 

£34.0 

>95 

>28.0 

>99 

27.0-28.0 

>99 

26.5-26.9 

>98 

26.0-26.4 

97-98 

25.5-25.9 

91-96 

25.0-25.4 

81-90 

24.0-24.9 

50-80 

23.0-23.9 

15-49 

22.0-22.9 

2-14 

£21.9 

<2 

49.0-50.0 

>99 

48.0-48.9 

98-99 

47.0-47.9 

95-97 

46.0-46.9 

86-94 

45.0-45.9 

71-85 

43.0-44.9 

34-70 

40.0-42.9 

3-34 

39.0-39.9 

1-2 

38.0-38.9 

<1 

36.0-37.9 

<1 
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Appendix  C 


Program  Listing  for  CAPE  Model 
Used  to  Generate  the  1964  and  1969  Data 


PROGRAM  GENSAMPIFHEAS. UREAS. SAMPLE. INPUT. OUTPUT. 

1  TAPFl*FM£AS.TAPE2=UMEAS.TAPE.i*SAMPLF. 

3  TAPFS*INPUT  .TAPFGsOUTPUT) 

C 

C  •••  “(JOULE  A  -  MONTE  CARLO  SUMULATION  **« 

C  •**  MCSM  READS  IN  FACTOR  MATRIX  OF  REQUIRED  ANTHROPOMETRIC 

C  •••  MFASURFMENTS  from  EITHER  0 1  ’Si'  FtLES  OR  INTERACTIVE 

c  •••  terminal,  it  also  allows  usfrs  to  print,  eoit  and  save 

C  •••  FUES.  THE  PROGRAM  then  COMMUTE  RANDOM  MULTIVARIATE  normal 

C  FEATURE  VECTORS.  AT  THE  END  OF  Thf  PROGRAM  IT  CALLS 

c  ••»  SURPOUTINE  TRANS  TO  PERFORM  NECESSARY  DATA  TRANSFORMATION 

C  •••  OF  ANTHROPOMETRIC  samples  ANO  STORFS  The  RESULTANT 
C  •••  MEASUREMENTS  on  DISK  FILES  FOR  CREwSTATION  EVALUATION 

C  ••*  MODULE . 

c 

COMMON/MCSM/CORPt78) .ANTM(2,1?) .VI2S1 .KmEAS. KN. 

1  SQROOT ( 781 .X  (2S) .IU.NTmEAS.ICOUNT. 

2  INamF (4) .ITMEAS  -NImeaS.NTEMP 
COMMON/M  I SC/ 10 1 N , I OOUT , I C  ARO 

C 

C  NMEAS  -  NUMBER  OF  ANTHROPOMETRIC  MEASUREMENTS.  CURRENTLY  12 


c 

c 

c 

NSAMP 

OATA 

name 

•  NUMBER  OF  OPERATOR  SAMPLES 

FILE  DESCRIPTION! 

PROGRAM  R£F.  TAPE*  FOR/UN 

CONTENTS 

c 

FMFAS 

1 

TO1* 

ANTMt2,NM£AS) «C0RR IKN1 

c 

UREAS 

ntmeas 

3 

UN 

NMEAS. KN.4NTm.C0hR 

c 

SAMPLE 

INPUT 

OUTPUT 

NTEMP 

3 

UN 

INAMEU)  .V.X 

c 

0 

C 

DATA  I  DIN. IOOUT .NUCREV.NTEMP.NTME AS.NImE AS/S.6.8. 3. A. 7/ 
DATA  MAXFUNC/A/ 

DATA  mmfaS.NTREAS.N (HCAS/12.2. A/ 

1 .ICDUNT/O/ 

DATA  AMTM/2i.AO/.C0RR/78»0/.INAM£/**l0M  / 

DATA  MAXOPT .MAXANTh.maxaCT/3.A«3/ 

C 

C  •••COMPUTE  t*N!  THE  LENOTh  OF  TM£  LINEAR  ARRAY  CORR(MN) 

C 

ICOUT.O 

ISAMP.O 

C  •••MCSM  main  MENU 
loo  continue 
IOIN«S 

VR1TF  (M2R0I 

CALI  INPT  (I.l.NVALS?.NMFAS.XVAL.lEO»> 

GO  Tn  (U0.l00«UO.120.?*0.iao> .  ItOF.l 

110  continue 

call  mclR  III 

GO  TO  100 
120  CONTINUE 

mR1T»  (A.JsOt 
GO  TO  100 
no  CONTINUF 

IF  tNMFAS.LT.l.OO.NMCAS.OI.NMfASJ  00  TO  UO 
KN*NHFAS«  tHMEASMl  /2 
| |NPT*0 

c 

C  GENERATE  OPERATOR  SAMPLE  FROM  MEANS. CIO  UtV  L  COMM  MAlft|A 
C 

NR  CONTINUE 
iniN.s 

c  •••ANtHMOPOMFtRic  functions 

tso  continue 

MPITf  <  A.  3Q01 
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CALL  INPT  <1*1 .NVALSZ. IOPT.XVAL. IEQE) 

GO  TO  (180, 140, 160, 170,280, 170) ♦  IE0F*1 
160  CONTINUE 

CALL  HELP  (2> 

GO  TO  ISO 
170  CONTINUE 

WRITE  (6,340) 

GO  TO  ISO 
180  CONTINUE 

IE  (IOPT.LT.l.OR.IOPT.GT.MAXANTH)  GO  TO  170 
C  INPUT, EDIT, SAVE, PRINT, GENERATE  OPER  SAME, END 

GO  TO  (190.200.220,240,280,280),  IOPT 
190  CONTINUE 

C  ***]NPUT  anthropometric  MEASUREMENTS 
CALL  ACCPT  (ISAMP) 

I INPT  si 
GO  TO  140 
200  CONTINUE 

C  ••♦SPIT  ANTHROPOMETRIC  DATA  FILE 
IE  (IINPT.E0.1)  GO  TO  210 
WRITE  (6,350) 

GO  TO  140 
210  CONTINUE 
CALL  EDIT 
GO  TO  140 
220  CONTINUE 

C  ••“SAVE  ANTHROPOMETRIC  DATA  FILE  ON  UmEAS 
IE  (ISAMP. EO.n  60  TO  230 
WBITE  (6.320) 

GO  TO  140 
230  CONTINUE 
CALL  SAVE 
GO  TO  140 
240  CONTINUE 

C  •••POINT  ANTHROPOMETRIC  OATA 
IE  (HNPT.EQ.il  GO  TO  250 
WRITE  (4,360) 

GO  TO  140 
250  CONTINUE 

CALL  PRINT 
GO  TO  140 
C 

c  •••  GENERATE  OPERATOR  SAMPLE  FROM  ANTM  MEAS  OATA 
C 

260  CONTINUE 

ir  (ISAvP.nE.1)  GO  TO  270 
CALL  OPSAMP  (ISAMP) 

GO  TO  140 
270  CONTINUE 

WPITF  (4.330) 

GO  TO  140 

C  •••TERMINATION  OE  MCSM 
260  CONTINUE 

WOITE  (6.310) 

STOP 

C 

290  FORMAT  <"  ENTER  NUMBER  OF  MEASUREMENTS  (t-12)?— "> 

300  FORMAT  l«  GENERATE  FUNCTIONS* 1-INPUT)2-E01T»3-SAV£|4-PRINTI" 

*  ”S-GENERATEI4-ENn!— «) 

310  FORMAT  t«  £NO  OF  OPERATOR  SAMPLE") 

320  FORMAT  («  UNABLE  TO  SAVE  MEASUREMENT  DATA  -  FATAL  ERRORS") 

330  FORMAT  ("  UNABLE  TO  GENERATE  SAMPLE  -  FATAL  ERRORS") 

3,0  FORMAT  ("  tNVALlO  RESPONSE") 

350  FORMAT  («  ANTHROPOMETRIC  OATA  MUST  BE- INPUT  BEFoRt  T*E  EOIT  " 

*  "FUNCTION  CAN  HE  USER") 

W»  EORM4T  ANTHflfM»OMETRir  RATA  MUST  RE  INPUT  mFFjORE  ThE  PRINT* 
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100 


no 

c 

no 

no 

c 

140 

no 

c 

c 

c 

160 

no 

c 


*  "FUNCTION  CAN  3E  USED”) 

END 

SUBROUTINE  INPT  (ITYPE. IVALSZ. NVALSZ.lVAL.XVAL.IEOF) 

COMMON/M I SC/ 1 0 1 N . I OOUT  *  I CARD 

FREE  FIELD  INPUT  ROUTINE  —  REAOS  IN  INPUT  FROM  THE  KEYBOARD  IN 

FREE  F'lELD  INPUT 

INPUT— 

ITYPE  -  SPECIFIES  THE  TYPE  OF  DATA  TO  BE  ENTEREO 
laINTEGER  2*REAL  3*ALPHA\UHERIC 
IVALSZ  -  THE  NUMBER  OF  ITEMS  EXPECTED  TO  BE  ENTERED 
OUTPUT— 

NVALSZ  -  THE  NUMBER  OF  ITEMS  ENTERED  BY  THE  USER 
IVAL  -  ARRAY  CONATINING  INTEGER  OR 

ALPHANUMERIC  DATA  SU°PLIEO  8Y  THE  USER 
XVAL  -  ARRAY  CONTAINING  REAL  OATA  SUPPLIED  By  THE 
USER 

IEOF  -  END  OF  FILE  FLAG 

1»IE  BLANKS  Oh  A  CARRIAGE  CONTROL  IS  THE 
ONLY  INPUT 

2a  IE  A  QUESTION  MARK  IS  ENTERED 
3*IF  INPUT  IS  INVALID 
4*1 F  A  S  HAS  BEEN  ENTERED 
DIMENSION  ICHAR(flO) « IVAL t IVALSZ) *XVAL (IVALSZ) 

ISTOPaO 

IE  ( IVALSZ. GE.O)  GO  TO  100 
!ST0P*1 

IVALSZ»I A8S I IVALSZ) 

CONTINUE 

IQUOTEaO 

NVALSZaO 

IFQE-0 

IF  (IOOUT.EQ.t)  GO  TO  120 
DO  110  t*l( AO 
ICHAR ( I ) *1H 
CONTINUE 

RE AO  IN  TMg  INPUT 

RFAO  UO1N.330)  ICHAR 

IF  (IOIN.NE.S)  WRITE  (6.330)  ICHAR 

IF  (FOFUOIN)  .NE.l)  GO  TO  130 

TF0F*1 

RETURN 

CONTINUE 

Il»ICARO 

GO  TO  140 

CONTINUE 

INITIALIZE  THE  CARO  COLUMN  COUNTERS 

n»i 

CONTINUF 

!2«AO 

CONTINIJF 

IF  ( JSTOP.EO. 1 .AND. IVALSZ .EQ.NVALS2)  RETURN 
SFARCH  FOR  THE  NEXT  WORD 

seabch*forIthe6first  non-blank  character  1ST  art  OF  WOMOI 

CHECK  tF  EXCESS  HAS  BEEN  ENTERED 

IF  (NVALSZ.LE. IVALSZ)  RETURN 

tE0F«5 

RETURN 

CONTINUE 

DO  1T0  (all .12 

tF  tICM»R(I).E0.1H  )  GO  TO  no 

IFJRST.t 

GO  TO  1R0 

CONTtNUE 

IF  (NVtLSZ.EQ.O)  IEOF*l 

CHECK  IF  EXCESS  mas  BEEN  EnTEREO 
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IF  (NVALSZ.GT.IV&LSZ)  I£0F=5 
return 

IPO  CONTINUE 

C  SFARCH  FOR  LAST  N0N-8LANK  CHARACTER  (END  OF  *ORD> 

IF  (ICHAPUFIRST) .EO.lH?)  IE0F=2 
IF  UCHARUFIRST)  .EO.lHS)  IEOF«4 
IF  (IEOFcNE.O)  RETURN 
IF  <ITy»E.EQ.4)  GO  TO  30u 
IF  UTYPE.NE.3)  GO  TO  190 

IF  ( I CHAP t IFIRST) .NE. IH". AND. 1CHAH UFIRST) »NE« 1h* 1  GO  TO  190 
IFIRST=IFIRST*1 
IOUOTEal 
190  CONTINUE 

OO  220  I=1FIRST.I2 
IF  (IQUOTE.EO.O)  GO  TO  200 

IF  UCHARII). EO.lH". OR. ICHAR(I).EQ.lH»)  GO  TO  210 
GO  TO  220 
200  CONTINUE 

IF  (ICHAR<I)  .NE.1H  .ANO.ICHARO.NE.lH,)  GO  TO  220 
210  CONTINUE  ' 
tlASTsl-1 
GO  TO  230 
220  CONTINUE 
ILASTal? 

230  CONTINUE 

NVAISZ=NVALSZ*1 

C  RESET  THE  FIRST  CHARACTER  TO  RE  SEARCHED  FOB  THE  NEXT  WORO 
C  INCREMENT  THE  MUMPER  OF  WORDS  FOUND 
•ii*uast*2 

IF  (NVALSZ.GT.IVALS?)  GO  TO  ISO 
C  CHECK  IF  INPUT  IS  ALPHA-NUMERIC 

IF  UTYOE.EQ.35  GO  TO  310 
C  INPUT  TS  NUMERIC 

C  CHECK  IF  NUMBER  IS  SIGNED 

IStGNal 

IF  UCHARUFIRST). NF.1H-. AND. ICNAMilFIRST>,NE.lM*>  GO  TO  2*0 
IF  UCHARUFIRST1.EO. lM->  ISIGN»-1 
IFIRSTalFIRSTU 
2*0  CONTINUE 

INUM»0 
tOEC«0 
lOECF.n 

oo  2f.o  i«ifirst»:last 

IF  UCmaRUJ  .NE.lH.l  GO  TO  250 
IOECF*{DECF • l 
IOEC»l 
GO  TO  2A0 
250  CONTINUF 

CALI  ICONV  UCMAPU)  UAOO»IEOF> 

IF  UE0F.E0.3)  RETURN 
INUM*INUM*10*IAOD 
IF  UOEC.NC.Ol  IOEC»lO€C*l 
2e0  CONTINUE 

IF  U0ECF.LT. 2>  GO  TO  280 
270  CONTINUE 

IF0F»3 
RETURN 

280  CONTINUE 

INUM»InUM*ISIGN 

xnum«flo*tunum> 

IF  I  UTYPE,EO,1.AMO.IO£C.LE.I>.OR.UTYP€*C0.2>)  60  TO  290 

!EOF»3 

RETURN 

290  CONTINur 

IF  I  IDEC.NF.Ol  *NUm.*niim/10.0**UOEC-1> 

IF  UTYPF.FO»n  IVAI  INVAI  S7>etFI«(*N*JM» 


r* 


If  UIYHt.tU.2)  AVAL(NVALSZ)=XNUM 
!CAR0=TLAST*1 
GO  TO  150 
300  CONTINUE 

ILAST=!VALSZ*10 
310  CONTINUE 

c  input  i5  alphanumeric 

DO  320  J=1 » IVALSZ 
IVAL ( J1 =10H 
320  CONTINUE 

L=ILAST-IElRST*l 

NVALSZ=(L-1>/10+1 

IF  (L.GT.10«IVALSZ)  60  TO  2?0 

ENCODE  (L*330*IVAU1>  )  ( I  CHAR  (I1»I*IFIRST  . ILAST1 

ICAR0=I1 

RETURN 

c 

330  FORMAT  (80 Al 1 
ENO 

subroutine  iconv  (jchar.ii.ieof) 

C  this  FUNCTION  CONVERTS  ALPHA  NUMBERS  TO  NUMBER  NUMBEhS 
DIMENSION  JNUm(IO) 

DATA  JNUM/lH0,lHl.lH2t 1H3. 1H4, 1HS* 1H6» 1H?» lH8» 1H9/ 

00  100  J*1.10 

IF  (JCHA».NE.JNU*MJ) 1  GO  TO  100 

11*3-1 

RETURN 

100  continue 

C  INVALID  INBUT  —  NOT  A  NUMBER 

1E0F*3 
return 
ENO 

SUBROUTINE  ACCPT  (ISAMp) 

C 

c  INPUT  ANTHROPOMETRIC  DATA 

c  •••  means.  STO  OEV.  ANO  CORRELATION  MATRIX 

C 

COMMON/mCSm/CORRITA) .ANTm(2.121 »V(2S) .NmEAS.kN. 

1  SQROOT(?8> ,X(2Sl.!U.NT«£AS.lCOUNTf 

?  INAMEUl  ,ITmEAS»NImEAS.NTCMP 

COMMON/MISC/IOIN.IOOUT.ICARO 
DIMENSION  3UEE(3>«TEMP(12> 

OATA  BUEE/3*0/ 

ISAMP«0 

ir.0UN7»0 

INLINE*© 

10IN*5 

C 

C  •••REAO  MODE  -  ^INTERACTIVE  2*FJLE 
C 

100  CONTINUE 

VPITE  (6.6101 

CALL  INPT  (1.1.NOINPT.JMOOE.X1VPT.IEOF) 

GO  TO  (li0.110.l20,110.AR0.110! .  !EOf*l 
C  INVALID  RESPONSE 
110  WRITE  (6.6S0) 

GO  TO  10O 

C  HELP 

120  CALL  HfLP  (Al 

60  TO  100 

130  IE  UMDDE.EO.il  GO  TO  200 

IE  (tMODE.NE.2t  GO  TO  110 

C 

C  •••  FILE  TvPEt  l«fO»M4TTEO  2*UNFO«M4TTED 
C 

UQ  CONTINUE 
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WRITE  (6.620)  ■  , 

CALL  INPT  (-lfl.NOINPT.IFFORM.XINPT.IEOF) 
GO  TO  (170.150. 160, 150.490 ♦ 150 ) ♦  IEOF*l 
150  WRITE  (6.650) 

GO  TO  1*0 

160  CALL  HELP  (5) 

GO  TO  140 

170  IF  (IFFDRM.EQ.l)  00  TO  190 

IF  (IFFORM.NE.2)  00  TO  150 


C 

c  •••  UNFORMATTED  read 
REWIND  NTME&S 

c  »**READ  The  NUMBER  OF  ANTHROPOMETRIC  MEASUREMENTS. 

C  **»correlation  COMPONENTS 

READ  (NTMEAS)  NMEAS.KN.INAME 
IF  (EOF(MTMEAS) .NE.l)  GO  TO  180 
WRITE  (6.670) 

GO  TO  490 

c  ***reao  the  mean  and  standard  deviation  values 

180  READ  (NTMEAS)  ( (ANTM(IO.JO) .10=1 »2> , JOsl .NMEAS) 

c  *#*READ  The  CORRELATION  MATRIX  VALUES 
READ  (NTMEAS)  (CORR(IO) »I0=1»KN) 

REWIND  NTMEAS 
WRITE  (6.690) 

ISAMPal 
RFTUBNi 

SET  INPUT  LOGICAL  UNIT  TO  1  FOR  FILE  FmEAS 
IOIN*l 
CONTINUE 


C  *** 

190 
200 
C 
C 
C 


•••ACCEPT  OPERATOR  SAMPLE  FILE  NAME 


INTO  ARRAY  ANTM 


210 

220 

230 


C*** 

240 

250 


260 


CALL  namEFL  (IERROR) 

I  COUNT sj COUNT* I ERROR 

INLlNEsINLINE.l  ,  , 

INPUTS  MEANS  AMO  STANDARD  DEVIATIONS 
IE  (iMonE.EO.l)  WRITE  (6.500) 

IF  ( I MOPE. NE. I )  WRITE  (6,510)  INAME 
maxINPT*2 

DO  320  IR0W*1, NMEAS 
CONTINUE 

IF  UMOOE.EQ.1)  WRITE  (6,530)  IROW 

NAMTsO 

CONTINUE 

ITOTIN=MAXINPT-NAMT 

CALL  INPT  (2,IT0TIN,N0INPT»IVAL,ANTM(IC0L»IR0W) .ItOF) 
IF  (IFOF.EQ.5.OR.IF.0F.EQ.0)  NAMT=NaMT»N01NPT 
IF  (IMODE.EO.I)  GO  TO  240 
INLINE * INLINE* I 

IF  (NAMT.EO.MAXINPT)  GO  TO  290 
IF  ( 1EOF.EO. 1 )  GO  TO  480 
WRITE  (6.S40)  IROW 
IF  (IERF.EQ.5)  GO  TO  270 
WRITE  (A, 700)  INLINE 
I COUNT - 1 COUNT ♦ l 
GO  TO  3?0 

INTERACTIVE  IEOF  PROCESSING 

G0NTr)NI(280. 210. 250. 260.490, 270),  I£OF*l 

CONTINUE 

CALL  HELP  (6) 

GO  TO  210 
CONTINUE 
W°ITE  (6,650) 

GO. TO  2)0 
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270  CONTINUE 

iolist=noinpt-itotin 

W°IT£  (6.600)  IOLIST 
IF  (IMOOE.NE.l)  I COUNT = I COUNT ♦ 1 
GO  TO  290 
260  CONTINUE 

IF  .(NAMT.GE.2)  GO  TO  290 
WRITE  (6*550) 

GO  TO  230 
290  CONTINUE 

IF  (NAMT.GT.2)  NAMT*2 
JR£RP=0 

DO  300  tCOL*l.NAMT 

CALL  REASON  ( 1 « ICOL  »IROW* ANTM ( 1  *  I ROW) .ANTM (2. IROW) » IFaTAL) 
IR£RR=IRERR*IFATAL 
300  CONTINUF 

IF  (IRERR.EO.O)  GO  TO  320 
IF  (IMOOE.NE,))  GO  TO  310 
WRITE  (6.630)  IROW 
GO  TO  220 

310  I COUNT* I COUNT* I RERR 

320  CONTINUE 
C 

c  «**  ANTHROPOMETRIC  CORRELATION  MATRIX  VALUES  ARE  ACCEPTED 
C  •**  AND  PROCESSED. 

C 

IF  (IMOOE.EO.l)  WRITE  (6.560) 

IF  (IMOOE.NE.l)  W®ITE  (6.520) 

00  <*60  IRQW  =  1.NM£AS 
330  CONTINUF 
NAmT=0 

maxINPT=NMEAS*1-IROW 
340  CONTINUE 

IF  (IMnnE.EO.l. AND. IROW. E0.NMEAS)  WRITE  16.580)  IHO-.maxINPT.NMEAS 
IF  (IMODE.EQ.l.ANO.IROW.NE.NMEAS)  WRITE  (6.570)  IHOw.MAXlNPT.IROw. 
1NMEAS 

350  CONTINUF 

ITOTIN=maxINPT-NAMT 

ISTART*tROW*NAMT 

CALL  INPT  (2,ITOTIN.NOJNPT,IVAL.TEMP(ISTART) *JEOF) 

IF  ( IEOF.EQ.O.OR. IEOF .E0.5)  NAMT=NAMT»NOINPT 
IF  (IMor»E.EQ.l)  GO  TO  360 

INLINE*INLINE*1 

IF  (NAMT.EO.MAXINPT)  GO  TO  410 
IF  (IEOF.EO.O)  GO  TO  350 

IF  ( IEOF.EO. 1 )  WRITE  (6.710) 

IF  UEOF.EO. 1)  GO  TO  470 

IF  UEOF.EO. 5)  GO  TO  390 

I COUNT a I COUNT ♦ 1 
WRITE  (6.700)  INLINE 
GO  TO  460 

C  •••  INTERACTIVE  INPUT  ERROR  PROCESSING 
360  CONTINUE 

GO  TO  (400.360.370.380.490.390) .  IE0F*i 
370  CONTINUE 

CALL  HELP  <7) 

GO  TO  340 
360  CONTINUE 

WRITF  (6*650) 

GO  TO  340 
390  CONTINUE 

IOLISTbNOINPT-ITOTJN 

WRITE  (6.600)  IOLIST 

IF  UMOOC.Nt.l)  I C OUNTw I COUNT ♦ 1 

NAMTaMAXtNPT 

GO  TO  410 
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400 


410 


420 


430 

440 


450 

440 

470 


480 


490 


C 

*00 

510 

*20 

530 

540 

SSO 

580 


570 

S«0 

590 

600 

410 

4?0 

630 

640 

650 

660 

670 

640 

690 

700 

710 


CONTINUE 

If  (NOTNPT.EQ.ITOTIN)  GO  TO  410  ’ 

ITOTIN=MAXINPT-NAMT 
WPITE  (6*590)  ITOTIN.IOOW 
GO  TO  350 
CONTINUE 

ILAST*IROW*NAMT-l 

IRERRaO 

00  420  I COL* I ROW «IL AST 

CALL  REASON  <2* I COL • I ROW* TEMP ( I COL) *0* IFATAL) 

irerr*irerr*ifatal 

CONTINUE 

IF  (IRERR.EO.O)  00  TO  440 
IF  (IM00E.E0.2)  GO  TO  430 
WRITE  (6*640)  IROW 
GO  TO  330 

I COUNT* I COUNT* I RERR 
GO  TO  460 
CONTINUE 

00  450  tcol*irow.nmeas 

N*NDX ( IROW , I COL ) 

CORR(N)*TEHP(TCOL) 

CONTINUE 

CONTINUE 

CONTINUE 

IF  (ICOUNT.EO.O)  ISAMP=1 
IF  (IMOOE.NE.1)  WRITE  (6.680)  ICOUNT 
GO  TO  490 
WPITE  (6.660) 

RETURN 

CONTINUE 

return 

FORMAT  ("  ENTER  PAIRS  OF  MEANS  ANU  STANDARD  DEVIATIONS—*') 
format  (//••  DIAGNOSTICS  OF  FORMATTED  R£AO  "/"  OPE*  OESCl  "»4A10/) 
format  <//»  correlation/antwroro-etric  measurement S«“) 

FORMAT  ('•  MEASUREMENT  -  ".I2«**  ?— •') 

FORMAT  («•  MEASUREMENT  -»*I2) 

FORMAT  ('•  ENTER  STANDARD  DEVIATION  — '•) 

FORMAT  (»  ENTER  ANTHROPOMETRIC  CORRELATION  MATRIX  OATA  IN  A  ROWWIS 
IE  UPPER  ••/»•  TRIANGULAR  FORM."/"  NOTES  ALL  01  AGONAL  ELEMENTS  MUST". 

♦  •*  FOUAL  1.000") 

FORMAT  (5H  BOW  .12. "(",12."  ELEMENTS*  COLUMNS  ".  I2»">") 

FORMAT  (5H  ROM  .!?."(". 12."  ELEMENT.  COLUMN  ".12,")") 

FORMAT  (2lH  ENTER  ThE  REMAINING  .I2.1RM  ELEMENTS  ►OR  MOW  .12) 
FORMAT  (»  THE  LAST  ».!?,»  INPUTS  HAVE  REEN  IGNO»EO"> 

FORMAT  («  INPUT  M0DE(l*INTERACTIVt»2aFiLE)— «) 

FORMAT  (•»  READ  M00Etl*F0RMATTED«2*UNF0RMATTED)— "> 

FORMAT  t"  RE-ENTER  DATA  FOR  "»I2) 

FORMAT  <»  RE-ENTER  DATA  FOR  ROW  * X 3 » 

FORMAT  ("  INVALID  RESPONSE") 

FORMAT  ("  UNEXPECTED  EOF  ON  FM£AS  FOR  HE AS  "»I2) 

FORMAT  ("  FILE  UMEAS  IS  NOT  ATTACHED  TO  ThE  PROGRAM"/ 

*  "  UNFORMATTED  REAO  ON  THIS  FILE  IS  ABORTED  —**»//> 

FORMAT  ("  TOTAL  ERRORS  ON  tNPUT  JATA  ".15) 

FORMAT  ("  MEAN.STO  OFV  6  CORRELATION  DATA  REAO") 

FORMAT  («  INVALID  DATA  AT  LINE  «.I5> 

FORMAT  («  UNEXPECTED  END  OF  FILE") 

ENO 

SUbPOUTINE  EDIT 

COMMON/MCSM/CORR (78) .ANTMI2.12) *  V (55) .NMEAS.KN. 

1  SOPOOT(78) .X(25) .IU.nTmeas. ICOUNT. 

2  INAHE(A)  .ITMEAS.NIMEAS.NTEMP 
COMMON/M I  SC/ 1 0 1 N . I OOUT . I CARD 
DIMENSION  BUFFO) 

1*U  B'>Ff/\*<l/ 
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•**  MODIFICATIONS  ON  MEANS, STANDARD  deviations 
***  AND  ANTHROPOMETRIC  CORRELATIONS 

I0IN*5 
CONTINUE 
WRITE  (6.3S0) 

CALL  INPT  (l.l#NVALSZt!OPT»XVAL*IEOF) 

GO  TO  (130,100,110,120,340,120).  IEOF*l 

CONTINUE 

CALL  HELP  (8) 

GO  TO  100 
CONTINUE 
WRITE  (6,360) 

GO  TO  100 
CONTINUE 

IF  (I0PT.LT.1.0R.I0PT.GT.5)  GO  TO  120 
GO  TO  (140,140,240,330.340),  IOPT 

•**  ICOL=l  FOR  MEAN  PROCESSING 

***  ICOL=2  FCP  STANOARO  DEVIATION  PROCESSING 

CONTINUF 

ICOL=IOPT 

CONTINUE 

MAXINPT»2 

NAMT*0 

CONTINiJF 

IF  (ICOL.EQ.l)  WRITE  (6,380) 

IF  (ICOL.E0.2)  WRITE  <6. 390) 

CONTINUE 

IVALSZ=MAXINPT-NAMT 
JsNAmT  *1 

CALL  INPT  (2, IVALSZ.NVALSZ, I VAL.SUFF ( J) , IEOF) 
GO  TO  (220,180.200,190,100,210),  IEOF*l 
CONTINUE 
WRITE  (6,370) 

GO  TO  140 
CONTINUE 
WRITE  (4.360) 

GO  TO  140 
CONTINUE 

IF  (ICOL.EQ.l)  CALL  HELP  (11) 

IF  (ICOL.EQ.2)  CALL  HELP  <12) 

GO  TO  140 

continue 

IDLlSTaNVALSZ-tVALSZ 
WRITE  (4,400)  IOL1ST 
CONTINUE 
IROWaPilFFd) 

NAMTaNVALSZ*NAMT 
IF  (MAMT.GE.HAXINPT)  GO  TO  230 
tF  (ICOL.EQ.l)  WRITE  (6.420)  IROw 
IF  (ICOI..E0.2)  WRITE  (6*430)  I  ROW 
GO  TO  170 

continue 

CALL  REASON  ( 1  *  I COL  * (ROW, BUFF (2) ,0, (FATAL) 

IF  t  IFAT4L ,€Q. 1 )  GO  TO  ISO 
ANrM(ICOL*lROW)«SUrF(2l 
GO  TO  100 

PROCESSING  FOR  ANTHROPOMETRIC  CORRELATIONS 

CONTINUF 

MAAINRT«3 

NAMT«0 


26 0  CONTINUE 

WRITE  (*.410) 

260  CONTINUE 

IVAL5Z=MAXINPT*NAMT 

j3NAMT*1 

CALL  INPT  (2*IVALS7»NVALSZ, I VAL.BUFF ( J) » 1E0F) 
GO  TO  (310,270,290,280,100,300) *  1E0F+1 
270  CONTINUE 

WRITE  (6,370) 

GO  TO  250 
280  CONTINUE 

WRITE  (6,360) 

GO  TO  250 
290  CONTINUE 

CALL  HELP  (13) 

GO  TO  250 
300  CONTINUE 

lOLlSTsNVALSZ-IVALSZ 
WRITE  (6*400)  IOLIST 
GO  TO  320 
310  CONTINUE 

ICQL»BUFF ( 1 ) 

IROWsRUEE (2) 

NAmT*namT*NVALSZ 
IF  (NAMT.GE.HAXINPT)  GO  TO  320 
IF  (NAMT.EO.l)  WRITE  (6,440)  ICOL 
IF  (NAMT.EQ.2)  WRITE  (6,450)  ICOL.IROU 
GO  TO  ?60 
320  CONTINUE 

CALL  ofaSOn  (3, ICOL* I ROW, BUFF (3) *0,1 FATAL) 

IF  (IFATAL.EQ.l)  GO  TO  240 

CALL  RfaSON  (2*ICOL*IPOW*BUFF (3) ,0,1 FATAL) 

IF  (IFATAL.EO.l)  GO  TO  240 

C  •••LOAD  The  VALUE  OF  8UFFO)  into  T"E  APPROPRIATE 
C  ••♦POSITION  WITHIN  THE  CORR(N)  ARRAY 
NkNO  X ( I QO W , I COL ) 

CORR (M) »RUFF ( 3) 

GO  TO  100 


C 

C 

C 

330 


C 

340 

C 

3S0 

3*>0 

370 

380 

390 

400 

410 

4^0 

430 

440 

4S0 


r 


•♦*  PRINT  OPTION 


continue 

CALL  POINT 
GO  TO  100 

•••  END  OF  EDIT  HOOC 

continue 

return 


FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 


"  EDIT  M00E(1-MFANS»2-ST0»3-ANTM.C0RR14-P*INTIS-EN0) 
"  INVAUO  RESPONSE") 

"  NO  INFORMATION  ENCOUNTERED") 

"  INPUT  l NOE*  AND  MEAN  VALUE") 

"  INPUT  INDEX  AND  STANOARO  DEVIATION") 

"  THE  LAST". 12,"  INPUTS  HAVE  BEEN  1GNOREO") 

"  INPUT  COLUMN  ,  ROW  AND  CORRELATION") 

"  INPUT  MF AN  VALUE  FOR  INDEX  ",I3) 

"  INPUT  STANDARD  OEVIATION  FOR  INDEX  "«I3» 

«  INPUT  ROW  AND  CORRELATION  FOR  COLUMN  «,12) 

"  INPUT  CORRELATION  FOR  ROW  «,I2»"  COLUMN  “.12) 


END 

SUBROUTINE  NAMEFL  UFPRORI 

COMMON/hCSM/CORR  1 7(»)  *ANTm(2*12)  ,V(25)  ,NM€AS*KN* 

1  SQBOOT(TR) ,x (25) , Iu*nTmEaS, ICOUNT, 

2  Ina**E<4)  ,ITmeaS,NImEAS,NTEmP 
COMMON/M I SC / 1 0 1 N  » I OOUT . I C APO 
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C  ***PROMPTS  USER  FOR  NAME  OF  SAMPLE  FILE 
C 

DIMENSION  I RUFF (4) .XVALI4) 

DATA  I RUFF/A* 1 OH  / 

IFRROHsO 

C 

C  »**INITIALIZE  CONTEN5 S  OF  IBUEE(4>  WITH 
C  ***RL ANK  CHARACTERS 
C 

DO  100  J»l»4 
IRUFF ( J) »10H 
100  CONTINUE 
C 

110  CONTINUE 

IF  (I0IN.EQ.5)  WRITE  (6.180) 

CALL  INPT  (4.4.NVALSZ.IBUEE.XVAL.IEOF) 

IF  ( IEOF.LT. 2.0®. IEOF.EQ .5)  GO  TO  150 
IF  (I0JN.NE.5)  GO  TO  140 
GO  TO  (120*130.170) .  IEOF-1 
120  CONTINUE 

CALL  HELP  (14) 

GO  TO  110 
130  CONTINUE 

WRITE  (6.190) 

GO  TO  110 
140  CONTINUE 

WPITE  (6.190) 

IPRRORsl 

C  •••LOAO  CONTENTS  OF  I BUFF  INTO  INAmE  ARRAY 
150  CONTINUE 

DO  160  J*1 *4 
I NAME (J)*IBUEE(J) 

160  CONTINUE 
1 70  RETURN 
C 

IRO  FORMAT  (••  OPERATOR  SAMPLE  DESCRIPTIONS  CHAR  MAX)—") 

190  FORMAT  {"  INVALID  RESPONSE") 

END 

SUBROUTINE  OPSAMP  (ISAmP) 

C  •••GENERATE  OPERATOR  SAMPLE 

COMmon/mcSM/CORP ( 7b )  .anTM(2.12)  ,v(25)  .Nmf.aS.KN» 

1  soonoms)  .x(?5)  .iu.ntmeas.icount. 

2  INamE (u) . I  THE AS.NIHE AS.NTEMP 
COMMON/M l SC/ 10 IN , IOOUT . I CARD 
DIMENSION  IRAN (9) 

DATA  (IRAN(I) .I»l. 9) /J3333333. 53555555.77777777. 222228221. 

1  444444443. 666666669 »88W)88b89. 99999999V. UJ456789/ 

C 

C  •••LINEAR  ARRAY  CORR (78)  IS  LOAOEO  INTO  LINEAR 
C  •••qummy  ARRAY  SOROOTtTp)  BEFORE  MATRIX  TraNSEOR- 
C  •••MATtONS.  ALL  MATRIX  TRANSFORMATIONS  ARE 
C  •••PERFORMED  ON  SQ°00T(78)  TO  PRESERVE  CORR (70) 

C  •••AS  IMPLEMENTED  within  The  editing  process. 

c 

!OIN«S 

00  100  K*l«KN  „ 

SOROOT(K)«CORR(*(> 

100  continue 

c  •••  perform  matrix  transformations 

CALL  SORNX  (NERBOR) 

IF  (NF.RR0P.E9.il  RETURN 
C  •••  ACCEPT  OPERATOR  SAMPLE  SIZE 

110  CONTINUE 

WRITE  (6.3201 

CALL  INPT  (l.l.NVALSZ.NSAMP.XVAL.iCOE) 

GO  TO  (ISO. IPO. 130. 140. 290. 1401 .  IF0F*| 
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120  CONTINUE 

WPITE  (6*330) 

60  TO  110 
130  CONTINUE 

CAUL  HELP  (IS) 

60  TO  110 
140  CONTINUE 

WRITE  (6*340) 

GO  TO  110 
ISO  CONTINUE 

IF  (NSAMP.6T.0)  60  TO  160 
WRITE  (6*350) 

GO  TO  no 
C 

c  **»ASK  USER  FOR  MACHINE  TYPE  (32  OR  60  HIT) 

C 

160  CONTINUE 

WRITE  (6*300) 

CAUL  INRT  (1,1 *NVALSZ*MTYPE*XVAL*  I  EOF) 

GO  TO  (190,160*170,180,290.160) *  IEOF*l 
170  CONTINUE 

CALL  HELP  (20) 

60  TO  160 
180  CONTINUE 

WRITE  (6*340) 

GO  TO  160 
190  CONTINUE 

IF  (MTYPE.NE.32.ANO.MTYPE.NE.60)  GO  TO  180 
200  CONTINUE 

WRITE  (6.310) 

c  •••  OPTION  FOR  ACCEPTING  A  RANDOM  SEEO. 

CALL  INPT  (l.l.NVALSZ.IS.XVAL.IEOF) 

60  TO  (240,210*220.230,290,230),  IEOF*l 
210  CONTINUE 

WRITE  (6*330) 

GO  TO  200 
220  CONTINUE 

CALL  HELP  (21) 

GO  TO  200 
230  CONTINUE 

WRITE  (6*340) 

GO  TO  200 
240  CONTINUE 

IE  US.EO.O)  GO  TO  250 

IE  (IS.LT.1.0R.IS.GT.9)  GO  TO  230 

IU"IRA*i(IS> 

GO  TO  260 
250  CONTINUE 

!U»6?1U133 
260  CONTINUE 

REwtNO  NTEMP 

C  •••WRITE  40  CHARACTER  NAME  FIELD  INTO 

c  •••file  sample  (ntempi 

WRITE  (NTEMPI  1NAME.NME45 

c 

00  280  T»1.NSAMP  ' 

C  •••  SIMULATE  A  PSEUOO  SAMPLE  CASE. 

CALL  SIMSU9  (MTYPE) 

00  270  K*1,NMEAS 
V(K)*W(K)*ANTM(2.K)»ANTM(l.K) 

270  CONTINUE 

WPITE  (NTEMPI  (V(lO) *IO«I*NM€AS) 

260  CONTINUE 

C  •••SET  ISAMP  TO  l  TO  INDICATE  OPERATOR  SAMPLE  MAS  BEtN  GENERATED 
ISAMP.l 

END  niF_NtE»P 
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REWIND 

ntemp 

REWIND 

ntmeas 

WPITE 

(6.360) 

290 

CONTINUE 

RETURN 

300 

FORMAT 

<" 

ENTER  MACHINE  WORD  SIZE  (32  OR  60  bIT)  —  <•) 

310 

FORMAT 

(" 

ENTER  RANDOM  NO  SEED  (0  IF  NONE  OR  1-9)— ••) 

320 

format 

('• 

INPUT  SAMPLE  SIZE  — ") 

330 

FORMAT 

(" 

NO  INFORMATION  ENCOUNTERED") 

340 

FORMAT 

(" 

INVALID  RESPONSE") 

350 

FORMAT 

('• 

SAMPLE  size  must  be  greater  THAN  Q») 

3*»0 

FORMAT 

(•• 

SAMPLE  OATA  SAVED  ON  FILE  SAMPLE  OR  TAPfc  3.") 

END 

SUBROUTINE 

PRINT 

c 

C  •••OUTPUT  OP  SIMULATED  OPERATORS 
C 

c  ***NOTEJ  all  OPERATOR  MEASUREMENTS 

C  •••ARE  STORED  ON  FILE  SAMPLE.  PRESENTLY  EACH  RECORD 

C  •••  CONTAINS  NMEa*“  anthropometric  measurements 

c 

COMMON/MCSM/CORR (Tft) «ANTM(2* 12) *V(25) .NMEAS.KN* 

1  SOROOT  <?8)  .X  <25> « lU.NTMEASt I COUNT « 

2  INAME(A) .ITMEAS.NIMEAS.NTEMP 
COMMON/MISC/IQIN.IOOUT.ICARD 
INTEGER  FMT 

OIMENSION  FMT  (6)  .NUM<12)  .TEMP(12>  .IN(>EX(2) 

DATA  FMT/4H1  .4H  «4H(6X).4H  .4H (F6. ,4H3) )  / 

OATA  NUM/lHl«lH2,iH3.lH4.lH5.lH6.lH7.lHP.lHV.2HlO*2Hll.2Hl2/ 
ISTOPEaO 
IOFLAG«0 
C 

c  •••  MENU  CHOICE  OF  OUTPUTS 

c 

100  CONTINUE 

WRITE  (6.630) 

CALL  INPT  (l.l.NVALSZ.tOPT.XVAL.IEOF) 

GO  TO  (120. 110. 110. 110. 390. 110).  IEOF*l 
110  CONTINUE 

WRITE  (6.650) 

GO  TO  100 
120  CONTINUF 

IF  (I0PT.LT.1.0R.I0PT.GT.4)  GO  TO  HO 
IF  (IOPT.EQ.1)  00  TO  130 

IF  U0PT.CQ.2)  60  TO  ISO 

IF  (I0PT.EQ.4)  00  TO  390 

00  TO  190 
C 

c  •••  PRINTOUT  OF  MEANS/STANOARO  DEVIATIONS 

c 

130  CONTINUE 

WPITF  (6.500) 

00  14Q  IR0V*1.NM£AS 

WRITE  (6.640)  I BOW. ( ANTm ( JO. IROW) . J0*1 .2) 

140  CONTINUE 

WRITE  (6.620) 

60  TO  100 
C 

c  •••  printout  of  anthropometric  correlations 

c 

ISO  CONTtNUF 

WRITE  (6.590) 

WRITE  (6.660)  (NUM( 10) . 10*1 *NM£AS) 

WRITE  (6.600) 

OO  160  IPOw»l.NMFAS 
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00  160  TC0L=1*NMEAS 
N=NDX(IPOW»ICOL> 

temp<icol>*corr(n) 

160  CONTINUE 

IF  (IPOW.OT.l)  60  TO  170 

WRITE  (6*6101  <TEMP(IC0L) * ICOL*IROW*NMEAS) 

60  TO  ISO 

170  FMT (2) =NUM ( IPOW-l ) 

FMT(4)sNUM<NM£AS*l-IR0W) 

WRITE  (6,FmT)  (TEMP(ICOL) *ICOLsIROW*NMEAS) 

160  CONTINUE 

WPITE  (6*6201 
60  TO  100 
C 

c  **•  print  of  ANTHROPOMETRIC  measurements 
c 

190  CONTINUE 

WRITE  <6*4301 

IE  (I0ELA6.LT.il  WRITE  <6*4401 
IOELASal 
C 

c  ••♦TMPUT  CARPI AC!'  RETURN  —  ENTIRE  SAMPLE  LIST 
C  ***INPUT  PINOLE  NUMBER  —  SIN6LE  OPERATOR 

C  ••♦INPUT  TWO  NUMBERS  —  SEOMENT  OF  OPERATOR  LIST 

C 


CALL  INOT  (1.2,NVALSZ*!N0£X.XVAL* 

I  EOF) 

00  TO  (230.270.200,210.100,2201* 

IEOF*l 

200 

CONTINUE 

CALL  HFLP  (19) 
lOFLAG*0 

GO  TO  190 

210 

continue 

WRITF  (6*420) 

GO  TO  190 

220 

continue 

lOLISTaNVALS?-? 

WRITE  (6,450)  IOLIST 

230 

CONTtNUF 

C  •••INOEX  VALIDATION 

IF  (INOFXU1.6T.01  60  TO  240 
WRITE  (6.4901 
60  TO  190 
260  CONTINUE 
C 

c  •••TO  OETERMINE  WHETHER  FILES  WILL  GE  REWOUNO 
C 

IF  USTORE.OT.O.ANO.INOEXU1.6T.ISTORE1  60  TO  250 
N0SK!P«INDEXU1*I 
GO  TO  260 
2S0  CONTINUE 

NPSK 1P.IN0EX (11-1  STORE-1 
260  CONTINUE 

ISTAPT«!NnEX(ll 

C  •••IF  TWO  INPUTS  ENCOUNTERED  -  OUTPUT  LIMITS 
C  •••IF  ONE  INPUTS  CNCOUNTFREO  -  OUTPUT  SINGLE  0»£«AT0M 
IF  (NVALSZ .EQ j l 1  60  TO  260 
IF  (NVALS2.GE.21  GO  TO  290 
270  CONTINUE 
IST0RE«0 
ISTA9T«1 
ICNO-999 

NPSK I Pad 

GO  TO  320 
260  CONTINUE 

tENO»IST*RT 
6ft  Tft  910 
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290  CONTINUE 

IF  (INnFX(l) .LE.INDEX(2) )  60  TO  300 
WPITE  (6.490) 

GO  TO  190 
300  CONTINUE 

IENO=INDEX (2) 

310  CONTINUE 

IF  (INHEXID .GT.ISTORE.ANO.ISTORE.NE.O)  60  TO  330 
320  CONTINUE 
C  •••REWIND  FILE  ■ 

REWIND  NTEMP 

READ  (NTEMP)  INANE, NMEAS 
‘  IF  (EOF(NTEMP).EQ.l)  60  TO  410 
330  CONTINUE 

IP  (NRSKIP.LT.I)  60  TO  3S0 
C  •••WINO  FILE  FORWARD 
00  340  laUNRSKIP 
READ  (NTEMP)  (V(K)  .K*l,NHfcAS) 

IF  tEOF(NTEMP).EQ.l)  60  TO  400 
340  CONTINUE 
360  CONTINUE 
C  •••OUTPUT  HEADER 

WRITE  (6*530)  (INAME(IO) ,I0«1.4) 

IF  USTART.EQ.IENO)  WRITE  (6*540)  IEND 

IF  USTART.NE.IENO. AND. IEND. NE. 999)  WRITE  (6,550)  ISTaRT.IENO 
WRITF  (6*500) 

WRITE  (6.660)  (NUM(IO) .I0«1.NM'EAS) 

WRITE  (6.600) 

C 

C  •••OUTPUT  OATA  FROM  FILE 
C 

ISKIP»0 

NFOUNO*0 

OO  360  t«ISTART.IENO 
C  •••SKIP  LINE  FEATURE 

IF  USKtP.EQ.l)  WRITE  (6.460) 

ISKlRuft 

IF  1 1  START  .NE.  l.CNO.  AND.  I  ,NE,  I  END.  AND.  I  I/5)*5»E0, 1 5  IS*IP«1 
RFAO  (NTEMP)  (V(K) .K») .NMEAS) 

IF  (FOF(NTEMP).FQ.l)  60  TO  370 

NFOUNO»NFOUNO*1 

ISTORE«t 

WRITE  (6.510)  (V (K»  «K«l .NM£ AS) 

36  P  CONTINUE 
60  TO  1A0 
370  CONTINUE 

IF  UENn.NE.999.AN0.ISTART.NE.IEN0)  WRITE  (6.470)  IEND 
ISTORE*! 

IF  (NFOUNO.LT. 1)  WRITE  (6.560) 

300  CONTINUE 

WRITE  (6.580) 

00  TO  190 
390  Cf)NTtNU£ 

REWIND  NTEMP 
RETURN 

400  CONttNUC  * 

! OUST* I -8* I  STORE 
WPITF  (6.560) 

60  TO  190 
410  CONTINUE 

WPITE  (6.570) 

GO  TO  100 
C 

420  FORMAT  («  INVALtO  RESPONSE**) 

430  FORMAT  t«  OUTPUT  HODEJ— •*) 

4w0  FORMAT  («  FOR  AIL  OPERATOR  OAT*  (ENTER  CARRIAGE  RETURN)**./, 
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■  I 

ti 


i  y 


450 

<♦60 

470 

460 

490 

500 

510 

520 

530 

540 

550 

S60 

570 

s»o 

590 

600 

610 

6?0 

630 

640 

650 

660 


* FORM AT  (»NTHE  LAST". 14,"  INPUTS  HAVE  BEEN  IGNORED”) 

FORMAT  <1H  )  „  ,, . 

FORMAT  (••  ERROR  IN  UPPER  IN°|X  L4N  0*  equal  TO  Q«> 

FORMAT  (••  INDEX  NUMBER  CANNOT  BE .^SS  THAN  OK  & ?SuEA«> 

FORMAT  (••  FIRST  INDEX  MUST  BE  LESS  THAN  SECOND  INUtx 
FORMAT  (27X."0PFRAT0R  SAMPLE'S/*?!  Oh'>  ♦> 

FORMAT  (11F6.2.F5.2) 

FORMAT  (71 (1H-1) 

FORMAT  (1X.4A10.10X.A10) 

FORMAT  (10X. "OPERATOR  N0'SI4) 

fsss  »jco;  s  r  cpc;.™; -E". 

FORMAT  (••  FILE  SAMPLE  IS  NOT  ATTACHtD  TO  THE  PROG  AM 

MEASUREMENTS"*/ 

1 • 1 X*70  1 1H— ) ) 

FORMAT  (1X,70(1H-)) 

FORMAT  (I2F6.3) 

IZ11  K.TR..MRIR  -E.SU-t~D.-l 

FORMAT  (I9.5X.2F12.2) > 

FORMAT  (•*  INVALID  RESPONSE*') 

FORMAT  (2**11 (A2.4X) *A2) 

CnO 

SUBROUTTNE  RAND2  (RNORM.M'TYPE.QUAN.IJ) 


c 

c 

c 

c 

c 


•••GENERATES  A  NORMAL  DISTRI0UTION  «1TH  MEAN  OF  ZERO  AND 
.••STANDARD  DEVIATION  EQUAL  TO  ONE.... 

•••METHOOOLOGT  ■***  MABSAGLI*  ”  9°*Y 

COMMON/MCSM/C0»R(7Ai .ANTM(2.12) .vt^) .NMtAS.KN. 

1  SORDOKTS)  .*(25)  .IU.NTmEAS.ICUUNT. 

2  inam£(4) .tTMEAS.NIMEAS.NTEK^ 

DIMENSION  QUANI2) 

COMMON7MI5C/IOIN.IOOUT.ICABO 
I J«I 3*1 

IF  (1J.FQ.2)  GO  TO  110 
100  CONTINUE  .  „ 

*l*2.0»UNF0RM(MTTPE)“t .0 

yi*2.0»UNFORM(MTYPE)-l.O 

S«Xl**l»Yl*?l 

tr  ts.nr.1.0)  GO  TO  100 

S«SOPT(-2.0*ALOG1S)/S) 

QUANI 1) »Xl*S 
OUAN (2) «Y1*S 
UO  CONTINUE 

RNOR“«OUAN(IJ) 

IF  tIJ.EO.2)  U«0 
RETURN 

SUBROUTINE  RE .SON  .ICI.L.lCOL.IRO..TSTOREl.TSTONM,lf»ttU 


c 

c 

c 


c 

c 

f. 


••*  CHECKS  POP  REASONABLENESS  Of  INPUT  VALUES 
.  co-dn-cwco-  '!«:  :*£*5'1'"’ 


SQOOOT ( TB> . X 1 251 R  tU.NTMf AS. I  COUNT . 
INAMEJ4)  ,ITMCAS.NI**€*S»NTEm» 


COMMON  /*»  ISC/IOIN.l  OOUT  •  I  CARO 


......  •  l  MEANS  and  standard  DEVIATIONS 

\rlu  •  ?  CORRF.  ATION  MATOU.  VERIFICATION 
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C  ICALL  =  3  INO£X  VERIFICATION 
C 

IFATAL=0 

UFLAO-O 

IF  (ICALL. LT.O)  I AFLAG*1 
ICALL*I A8S ( I CALL  ) 

IF  (ICALL. GT.l)  GO  TO  110 
C 

C  •••  MFAN  values  must  HE  WITHIN  a  three  STANOARO  OEVIATION 

C  ***  NEIGHBORHOOD  OF  THE  ACCEPTED  MEAN  VALUES 

C 

IVRITEal 

IF  (IROW.LT.l.OR.IROW.GT.NMEAS)  GO  TO  120 
IF  (ICOL.EO.2)  GO  TO  100 
RETURN 
C 

C  ••*  STANOARO  DEVIATIONS  MAY  NOT  BE  NEGATIVE 

C  *«*  ANO  THE  MEANS  MUST  BE  GREATEH  THAN 

C  •••  The  STANOARD  OEVIATION. 

C 

100  CONTINUE 
IWRITE»2 

IF  (TST09E2.LT. 0.1  GO  TO  120 
IWRITE.3 

IF  ( T STORE  1 .LE.TST0RE2)  GO  TO  120 
RETURN 
C 

C  CHfCKS  validity  of  index  numbers 

C 

110  CONTINUE 
IVRITE>1 

IF  (IROW.LE.Q.OR.IROW.GT.NMEAS)  GO  TO  130 
IWRITE*? 

IF  tICOL.LE.O.OP.ICOL.GT.NMEAS)  GO  TO  130 
C  »»»IS  The  NUMBER  WITHIN  THE  UPPER  TRIANGULAR  REGION* 

IVRITE»3 

IF  (IPOW.GT.ICOU  GO  TO  130 
IF  ( ICALL. EO. 3)  RETURN 
C 

C  •••  ALL  DIAGONAL  ELEMENTS  MUST  EUUAL  1.000 

C  •••  MATRIX  ELEMENTS  may  NOT  BE  LESS  Than  (-l>  Q»  GREATER 

C  •••  Than  ONE. 

c 

IVRIT£,4 

IF  (ICOL.CO. IRON. ANO.TSTORE1.NE. 1.0001  GO  TO  130 
IVRITF.b 

IF  (TSTnREl.LT.-l. 000)  GO  TO  130 
IMRITE«A 

IF  (TST0RE1.GT. 1.000)  GO  TO  130 
RFTURN 
C 

C  •••BRANCH  TO  APPROPRIATE  ERROR  MESSAGE 
C 

120  CONTINUF 

IF  (IWRITE.NE.1 .AND.J0IN.NE.51  WRITE  (6.260)  IROW 
GO  TO  (100,140. ISO).  1 WRITE 
130  CONTINUE 

60  TO  ( 100.200.210. 160. 1  TO* 160) .  IWRITC 
I 40  CONTINUE 

WPITE  (6.230) 

GO  TO  «6 
ISO  CONTINUE 

WRITE  (6*240) 

GO  TO  220 
160  CONTINUE 

wpitf  (a.pso) ,^Row*trn» 
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170 

IdO 

190 

200 

210 

220 


GO  TO  220 
CONTINUE 
WPITF  (6,260) 
GO  TO  220 
CONTINUE 
WP1TE  (6,270) 
GO  TO  220 
CONTINUE 
WRITE  (6*290) 
GO  TO  220 
CONTINUE 
WRITE  (6*300) 
GO  TO  220 
CONTINUE 
WvJJTe  (6*310) 
GO  TO  220 
CONTINUE 
IFAT*t*l 
RETURN 


IROW,1COC 
I ROW, I COL 

IROW.NMEAS 

!COL,NM£AS 

1 ROW*! COL 


C 

230  FORMAT  (”  STANOARO  DEVIATIONS  LESS  T”AN  ZERO”) 

2**0  FORMAT  (”  SU.JOARD  DEVIATION  GREATER  TrtAN  MEAN  VALUE,”) 

250  FORMAT  t”  DIAGONAL  ELEMENT  IN  RO*  »»I2.”  COLUMN  “»I2» 

♦  ”  IS  NOT  EQUAL  TO  1.0”) 

260  FORMAT  (”  ENTRY  IN  COLUMN  ”»I2.“  ROW  "«I2, 

«  ”  IS  LESS  TWAN  -1,G«) 

270  FORMAT  (”  ENTRY  IN  COLUMN  «.I2»”  MOW  ”,I2» 

*  ”  IS  GREATER  Than  *1.0”) 

2S0  FORMAT  (HO) 

290  FORMAT  f»  ROW  ”,  12,”  IS  LESS  THAN  2E»0  OR  GREATER  Than  ”,I2) 

300  FORMAT  t”  COLUMN  “ *  1 2 * ”  IS  LESS  Than  ZepO  OR  G»£Af£R  Than  «*I2) 

310  FORMAT  {”  ROW  ”• 12*”  COLUMN  ”*I2*'»  IS  OUTSIDE  OF  UPPER” » 

•  ”  TRIANGULAR  REGION  OF  CORRELATION  MATSU.”) 

CNQ 

SUBROUTINE  SAVE 
C 

c  •••  This  ROUTINE  SAVES  INPUT  data  ON  PERMANENT  file  tape 2 
C 

C0MM0N/MCSM/C0RR178) ,ANTM(?*12) ,V(25) »nm£4S,KN» 

1  SQROQT (78) *X  1 25) * IU*NTm£AS» I COUNT  * 

2  InamE <a) «ITmeaS.n!mEAS,NTekP 

COMMON/m I  SC/ 1 0 IN . I GOUT , I CARO 

RfwINO  nT**ea$ 

c  ***$AVE  NO*  OF  M£AS,«  ELEMENTS  In  COmR  MATRIX.  St*  FLAG 
WRITE  (NtMEAS)  Nm£4S,KN. JNAME 
c  SAVE  MfAN/STO.  VECTOR. 

WRITE  (NTMEAS)  HANTmiio.JO) ,IO*i*2) *JO*i»NM£AS) 

C  •»*  SAVE  CORRELATION  MATRIX 

WRITE  (NTMEAS)  (COPRUO)  ,10*1»MN) 

REwtNO  NtMEAS 
WRITE  (6,100) 

RETURN 


C 

100 


c 

c 

c 

c 

c 

c 

c 

c 

c 


FORMAT  (”  MEASUREMENT  DATA  SAVED  ON  FILE  UMEAS  0«  TaP€2”) 

EM& 

SUBROUTINE  Sl«Sua  (HTYPCi 

•••  FOR  A  given  SOUAR  ROOT  MATRI*  P  Of  ORDER  R  iN  UPPER 
•••  TRIANGULAR  FORM  of  A  CORRELATION  or  A  COVANlANCE 

MtTHU  OF  m  COLUMNS*  THIS  ROUTINE  COMPUTES  A  VECTOR 
•••  y  OF  PSEUOO  SCORES  OF  LENGTH  m  SUCH  ThaT  IT  WILL 
•**  8E  A  OUASI -RANDOM  SAMPLE  FROM  A  NORMAL  POPULATION 
•••  WITH  A  MEAN  VECTOR  OF  ZEROS  anO  ThE  SAh£  CORhELaTION 
•••  OR  COVARtANCE  MATRIX,  l.E.  FRO*  AN  N(0»H)  MAlfilX, 

CnMMGNSMCSM/Cn9R(7ft) .ANTMIP.12I «V(2SI .NMFAS.KN.  . 
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1  StlROOT  (78)  •  X  < 2*5 )  * IU.NTME AS* I  COUNT  * 

2  INAm£U)  .ITMEAS.NIMEAS.NTEHP  ' 
COMMON/MISC/IOIN.IOOUT»ICA*D 
DIMENSION  Y (45) 

!  J=0 

00  100  I — 1  * NME A S 

v<n*o.o 

CALL  RAND2  (RNORM.MTYPE.QUAN*! J) 

100  Y ( 1 >  aRNORM 

00  110  1  =  UNMEAS 

oo  no  j*i.i 

K=NOX { J«  I ) 

110  V  ( I ) =V ( I )  *V  ( J) *SQROOT (K) 

RETURN 
ENO 

SUBROUTINE  SQRMX  tNERROR) 

FOR  A  GIVEN  SYMMETRIC  MATRIX  OF  ORDER  N  STORtO  IN  ITS 
*••  UPPER  TRIANGULAR  FORM.  COLUMNWISE  IN  TH£  VECTOR  H  OF 
«•»  LENGTH  NMN.D/2.  THIS  ROUTINE  TRANSFORMS  IT  INTO  ITS 
•**  "SQUARE  ROOT"  IN  THE  SAME  FORM  IN  THE  VECTOR  SOROOTC78) 

C0MM0N/MCSM/C0RR(7ft) .ANTMI2.121 .Vt2S> .N“EAS»KN» 

1  SQPOOT  <  78) .* (25>  «IU.NTmEAS»!COUNT« 

2  INA»£(a> .ITmEAS.NImeas.nTEMP 
COHMON/mISC/JOIN.IOOUT.ICARO 
DIMENSION  2X(7) 

INTEGER  ZX 

C  •••npRROR  FLAG  IS  USED  TO  SIGNIFY  A  CONDITION 
C  •••WHICH  WILL  PRODUCE  A  NEGATIVE  SQROOTtN)  VALUE 
C  •••JUST  BEFORE  IMPLEMENTATION  OF  THr.  SQUARE  ROOT 
C  •••FUNCTION. 

NFRPOP«0 

00  120  1*1 »NM£AS 

ZXtA)*I 

NsNOxt  t ,l> 

c  •••test  FOO  NEGATIVE  RADICAL  ARGUMENT 
IF  ISQROOT (N1 .LT.OJ  60  TO  130 
S0*SQ»T<SQRQ0T<N>> 

00  too  J*l«NMCAS 

NbNOXII ,J) 

SQROQT (N>  *SQRO0T (N) /SO 
10Q  CONTINUE 

C  •  ••NOwMAi.  FXIT  FROM  SUBROUTINE 

IF  U.FO.NVfASl  nerror»o 
IF  U.Efi.NMEASJ  RETURN 
11*1*1 
lX<S)*Il 

00  110  I2«II.NMEAS 
00  UO  J2=I2.NMEAS 
N»NOM  I2*J?» 

L»NOXt 1.121 
KsNOx  t  T . J2 1 

SOHOOT (Nl *SQROOT IN) -SGR00T  (U •SQROOTUC) 

2X  161*12 
IX  <  7l  * J? 
no  continue 

ZX  1 1 1  «N 

Z*12I«L 
Zx (3)«K 

120  CONTINUE 
130  CONTINUE 

c  •••APN09MAL  exit  from  SUaROUTIME 
NFRRORal 
WRITE  (A. 180) 
l-o  CCNTtNttF 
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WRITE  (6*190)  • 

C&LL  INPT  (4,1.NVALSZ»IANS.XVAI*IE0F) 

GO  TO  ( 170 » 160  *  150 « 170 • 160  *  170 > *  1E0F*1 

continue: 
uditE  (6*2o0i 

WRITE  (6*210)  (2X(I)  *1  =  1*7)  .SQROv'T<N) 

CONTINUE 
RETURN 
CONTINUE 
WRITE  (6*220) 

GO  TO  140 

SES  !» JfpSSBSi-./ 

•Ill"  p-s  « — 

"  T*V  Un  ,In,N  5? 

*F0RMAT  (8X,4!5*1X,3I5,FR.3,/.10X*44(1H-),//) 

FORMAT  (/•*  INVALID  RESPONSE 
END 

FUNCTION  NQX ( I  .J) 

IF  (I.GT.J)  SO  TO  100 
NOX=I ♦ ( J*J-J) /2 
RFTURN 

NDX*J* < 1*1-1 ) /2 

RFTURN 

END 

FUNCTION  UNFORM (MTYPE) 

.•UNIFORM  RANDOM  NUMBER  GENERATOR  ON  INTERVAL  (0.1) 

COMMON  /MCSM/  CORR (78) « ANTM (2* 12) *V (25) *NMEAS*KN* 

ISOHOOT (78) *X ( 25) ,IU*NTMEAS.1C0UNT, 

2INAMF(4) .ITMEAS.NImEAS.NTEMP 
COMMON/M I  SC/ 1 01 N* IOOUT.ICARO  -00 

60  BIT  UNIFORM  RANOOM  NUMBER  GENERATOR 

oSta  IX/16777213/,C/281474976710655./ 

IF  (MTYPE *EQ»32)  GO  TO  100 

IU=IU*!X 

UNFORMalU/C 

ppTUPN 

32  BIT  UNIFORM  RANOOM  NUMBER  GENERATOR 
IU=IU*65509 

IF  (IU,GE*0)  GO  0  110 
IUS1U* 2 167403647*1 
UNFO»«=IU  „„ 

UNFORMssUNEORM*.  465661 3E-09 

RETURN 

END 

SUBROUTINE  HELP  <!> 

RETURN 

END* 


APPENDIX  D 


Program  Listing  for  CAPE  Model 
Modified  for  Use  with  FORTRAN  IV- 


1 

2 

3 

4 

5 

6 
7 
6 

9 

10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 


C0HM0N/MCSM/CQRR  (78)  ,  ANTM  (2, 12)  ,V  (25)  .NHEAS.KN, 

1  SOROOT  (78)  ,X  (25)  ,  IU.NTHEAS, ICOUNT, 

2  I NAME  (10) . ITHEAS.NIHEAS.HAXSAH.NTEHP 
C8HM0N/HI SC/ 1 01 N , I OOUT . 1 CftRD 

DATA  NUCREH/8/ 

DATA  HAXFUN/4/ 

DATA  HAXOPT , MAXANT , MAXRCT /3 , 7, 3/ 

IOCUT-O 
ISAHP-0 
HHEAS  -  12 
100  CONTINUE 
I01N-5 

NRITE  (6.290) 

CALL  1NPT  (1 , l.NVALSZ.NHEAS.XVAL. I EOF) 
IE0FP1-IE0F+1 

GOTO  (130,100,110,120.280.  120).  1E0FP1 
110  CONTINUE 

CALL  HELP  (1) 

GO  TO  100 
120  CONTINUE 

WRITE  (6,340) 

GO  TO  100 
130  CONTINUE 

IF  (NHEAS.LT.  1.  OR.  NMEAS.GT.  HHEAS)  GO  TO  120 
KN-NHEASh  (NHEAS+D/2 
I1NPT-0 
140  CONTINUE 
IOIN-5 

150  CONTINUE 

WRITE  (6,300) 

CALL  1NPT  (l.l.NVALSZ.IOPT.XVAL.IEOF) 
lEOFPl-IEOF-n 

GO  TO  (180,140.160,170,280,170) .IEOFPl 
160  CONTINUE 

CALL  HELP  (2) 

GO  TO  150 
170  CONTINUE 

WRITE  (8,340) 

GO  TO  150 
180  CONTINUE 

IF  (ICPT.LT.l.OR.IOPT.GT.HAXANT)GO  TO  170 
GO  TO  (190,200,220,240.260,280.225)  .10PT 
190  CONTINUE 

CALL  ACCPT  (I  SAMP) 

I1NPT-1 
GO  TO  140 
200  CONTINUE 

IF  (I  INPT.EQ.  1)  GO  TO  210 
WRITE  (6,350) 

GO. TO  140 
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51 

210 

CONTINUE 

52 

CALL  EDIT 

53 

GO  TO  140 

54 

220 

CONTINUE 

55 

IF  USAHP.EQ.il  GO  TO  230 

56 

222 

NRITE  (6,3201 

57 

GO  TO  140 

58 

225 

CONTINUE 

59 

1FUSAMP.NE.11  GO  TO  222 

60 

CALL  PUNfiT 

61 

GO  TO  140 

62 

230 

CONTINUE 

63 

CALL  SAVE 

64 

GO  TO  140 

65 

240 

CONTINUE 

66 

IF(IlNPT.EQ.l)  GO  TO  250 

67 

NRITE  (6,3601 

68 

GO  TO  140 

69 

250 

CONTINUE 

70 

CALL  PRINT 

71 

GO  TO  140 

72 

260 

CONTINUE 

73 

IF  USAHP.NE.il  GO  TO  270 

74 

CALL  OPSAHP  USAHP) 

75 

GO  TO  140 

76 

270 

CONTINUE 

77 

NRITE  (6,330) 

78 

GO  TO  140 

79 

280 

CONTINUE 

80 

NRITE  (6,310) 

81 

STOP 

82 

290 

FORMAT  (’  ENTER  NUMBER  OF  MEASUREMENTS  (1-12)  ») 

83 

300 

FORMAT  l*  OPT  IONS (1-INPUT 1 2— EDI T i 3-SAVEi4-PRINT »5*GENERATE»  * 

84 

1  ,  '6-ENDj  7-PUNt'H)  *1 

85 

310 

FORMAT  (5X,  'END  OF  OPERATOR  SAMPLE') 

86 

320 

FORMAT  (IX, ‘mkkMCSMINO  UNABLE  TO  5AVE  MEASUREMENT  DATA  - 

FATAL 

87 

1  ERRORS’) 

88 

330 

FORMAT  UOX, ’k«hHCSM165  UNABLE  TO  GENERATE  SAMPLE  - 

FATAL 

ERRORS') 

89 

340 

FORMAT  (/,  ’k*kMCSMQ24  INVALID  RESPONSE') 

90 

350 

FORMAT  ( 10X ,  ’mmhMCSM 1 30  ANTHROPOMETRIC  DATA  MUST  BE 

INPUT 

BEFORE', 

91 

1  /,  13X,  'THE  EDIT  FUNCTION.') 

92 

360 

FORMAT  UOX, '«hhHCSM150  ANTHROPOMETRIC  DATA  MUST  BE 

INPUT 

BEFORE', 

93 

1/, 13X, 'THE  PRINT  FUNCTION.') 

94 

END 

1 

SUBROUTINE  1NPT  UTTPE,  lVRLSE.NVfU.SZ,  1  VAL.XVAL,  1E0F1 

2 

COMHON/M I  SC/ 1 01 N. 1 OOUT . 1 CARD 

3 

DIMENSION  I  CHAR  1801 ,  1 VAL  (I VRLSZ1  ,  XVAL  (1VALSZ) 

4 

C 

S 

01  HENS  I  ON  NVAL120) 

3 

LOGICAL  n  1  NCiiAR  (80) 

7 

EQUIVALENCE  (NVAL  (1) ,  NCHAR  (1)  I 

8 

C 

9 

C 

10 

OATR  1BLK, IQUES, IDOL, 1QUQ, I POST, I  PD, ICON, 1MIN, 1PLUS/1H  ,  1H?, 

11 

1 1H*,1H\1H«,1H..1H..1H«.1H+/ 

12 

OATR  14BLK/4H  / 

13 

ISTOP-O 

14 

IF  (IVALSZ. GE. 01  GO  TO  100 

15 

1STSP-1 

16 

I  VAISZ*IABS  (IVALSZ) 

17 

100 

CONTINUE 

18 

1  QUOTE  *0 

i9 

NVALSZ-Q 

20 

lEOf-O 

21 

IF  (IQQUT.EQ.  1)  GO  TO  120 

22 

DO  110  1*1,80 

23 

1CHAR  (1)  *1BLK 

24 

110 

CONTINUE 

25 

READ  UOIN,  330. END-111)  ICHAA,  NCHAR 

26 

DO  109  J*I,8Q 

27 

IF  (1CHARU)  ,EQ.  IBLKi  GO  TO  109 

28 

GO  TO  130 

29 

109 

CONTINUE 

30 

GO  TO  113 

31 

111 

CONTINUE 

32 

REWIND  I01N 

33 

113 

1E0T  *  1 

34 

return 

35 

120 

CONTINUE 

36 

11-lCARD 

37 

GO  TO  140 

38 

130 

CONTINUE 

39 

1 1-1 

40 

140 

CONTINUE 

41 

12*00 

42 

ISO 

CONTINUE 

43 

C 

HRIT“ (6,501)  IDEC.1ST0P, IVALSZ, NVALSZ.  11,12,  IEOF 

44 

IF  USTOP.EQ.  1.  AND.  IVALSZ. EQ. NVALSZ)  RETURN 

45 

IF  (li.LE.12)  GO  TO  ISO 

46 

IF  (NVALSZ. LE. IVALSZ)  RETURN 

47 

1E0F-5 

48 

RETURN 

49 

160 

CONTINUE 

50 

00  170  1*11,12 

85 


51 

IF  (ICHRR  (1)  .EQ.1BLK  )  GO  TO  170 

52 

lFIRST-1 

59 

GO  TO  180 

54. 

170 

CONTINUE 

55 

IF  (NVRLSZ.ECl.O)  I EOF » 1 

56 

IF  (NVRLS2.GT.  1VRLSZ)  1E0F-S 

57 

RETURN 

58 

180 

CONTINUE 

59 

IF  (1CHRR  (IF1RST)  .  EQ.  1QUES1  1E0F-2 

60 

IF  (ICHRR (1FIRST)  .EQ.IDQL)  IEOF-4 

61 

IF  (IEOF.NE.O)  RETURN 

62 

IF  (1TTPE.EQ.4)  GO  TO  300 

63 

IF  (1TYPE.NE.  3)  GO  TO  190 

84 

IF  (ICHRR  (1FIRST)  .NE.  IQUO.RNO.  ICHRR  tlFIRSTl  .NE.1P0ST) 

GO 

TO  190 

65 

1FIRST-IFIRST*1 

66 

1 QUOTE* 1 

67 

190 

CONTINUE 

68 

DO  220  J-IF1RST.12 

69 

IF  (IQU0TE.EQ.01  GO  TO  200 

70 

IF  (ICHRR  (D.EQ.IQUO.  OR.  ICHRR  (11.  EQ.1PQST)  GO  TO  210 

71 

GO  TO  220 

72 

200 

CONTINUE 

73 

IF  (ICHRR  (I)  .NE.  IBLK.  RND.  ICHRR  (11  .NE.  1CQM)  GOTO  220 

74 

210 

CONTINUE 

75 

lLflST-1-1 

76 

GO  TO  230 

77 

220 

CONTINUE 

78 

U.fiST-12 

79 

230 

CONTINUE 

80 

NVflL.SZ-NVfllSI+1 

81 

1 I » 1 LAST ♦2 

82 

IF  (NVRlSZ.GT. IVRLSZ)  GO  TO  15Q 

83 

IF  ( I TYPE  . EQ. 31  GO  TO  3l0 

84 

ISIGN-l 

as 

IF  (ICHRR  UFIRST)  .NE.  IHlN.fiNQ.  ICHRR  (1F1RST1  .NE.  1PLUS1 

GO 

TO  240 

86 

IF  (ICHRR UFIRST)  .EQ.IHIN1  ISJGN— 1 

87 

IFIRST-IFIRST-*! 

88 

240 

CONTINUE 

89 

1NUH-0 

90 

IDEC-0 

91 

IQECF-0 

92 

DO  260  I-IFIRST. ILR5T 

93 

IF  (ICHRR  (I)  .NE.1PD)  GO  TO  250 

94 

IQECF-IDECF-U 

95 

1 DEC-1 

86 

GO  TO  260 

97 

250 

CONTINUE 

96 

CRLL  1C0NV  (ICHRR  (I)  .1RDQ.1E0F) 

99 

IF  (1E0F.EQ.3)  RETURN 

too 

INUM-INUMmIO-MROQ 

86 


101 

501 

FORMAT  (/  *  TEST  \  101 101 

102 

IF  (10EC.NE.0)  I0EC-I0EC+1 

103 

260 

CONTINUE 

104 

IF  (lOECF.LT. 2)  GO  TO  280 

105 

270 

CONTINUE 

106 

C 

WRITE (6,501)  IDEC,  10ECF 

107 

1E0F-3 

108 

RETURN 

109 

280 

CONTINUE 

110 

INUH-INUH-ISIGN 

111 

XNUM-FLOAT  (1NUM) 

112 

CC 

WRITE  (6,501)  10EC,  IDECF,  INUM,  1A0D,  1SIGN,  1TTPE 

113 

IF  (IITYPE.EQ. 1.AN0.IDEC.LE.1) .OR.  (1TTPE.EQ.2) )  GO  TO 

114 

IEOF-3 

115 

RETURN 

116 

290 

CONTINUE 

117 

IF  (IDEC.NE.Ol  XNUM-XNUH/10.0«*(10EC-1) 

118 

IF  (ITTPE.EO.  1)  1VAL  (NVRLS2)  -1F1X  (XNUH) 

119 

IF  (1TTPE.EQ.2)  XVAL  (NVALS2)  ■XNUM 

120 

1  CARO- HAST*  1 

121 

C 

WRITE  (6.501)  10EC, 10ECF, INUM, 1AQD.  IS1GN, 1TTPE.NVALSZ 

122 

C 

1  1VAL (NVALSZ) ,  1CAR0 

123 

GO  TO  ISO 

124 

300 

CONTINUE 

125 

ILAST-1VALSZ-4 

126 

909 

FORMAT (  it,  80A1) 

127 

910 

FORMAT  (2X.  20A4) 

128 

310 

CONTINUE 

129 

00  320  J-l.IVALSZ 

130 

1VRLUI-I4BLK 

131 

320 

CONTINUE 

132 

L«ILAST-IF1RST»1 

133 

NVALSZ-  (L-1)/S0*l 

134 

IF  (L.GT.4-IVALSZ)  GO  TO  270 

135 

C 

ENCODE  (L.340.  JVAU1)  )  (ICHAR  (1) ,  1FIRST.  HAST) 

136 

J  •  0 

137 

o 
c n 

FORMAT  ('  ENCODE  \  101 10) 

138 

00  311  I  «  IF1RST, HAST  , 

139 

J  •  J  ♦  1 

140 

NCHAR(J)  -  NCHAR(l) 

141 

311 

CONTINUE 

142 

DO  313  1  -  l.IVALSZ 

143 

IVAL(I)  ■  NVALtI) 

144 

313  CONTINUE 

145 

I  CARO- 11 

148 

RETURN 

147 

330 

FORMAT  (80A1 .  Tl.  80A1) 

148 

340 

FORMAT  (80AI) 

149 

ENO 

'■'.V7V'  -r--,~rrr  ~"i  •!  w  V,rrpe*»jif.-’*sr 
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1 

2 

3 

4 

5 

6 

7 

8 
3 
10 
11 
12 

13 

14 


SUBROUTINE  ICONV  tJCHRR. 11 . IE0F1 

DIMENSION  JNUH110)  . 

ORTR  JNUM/1H0. 1H1.1H2.1N3. 1H4. INS. IMS. 1H7.1H8.1H3/ 

11  FORMAT <//'  RT.  ICONV  *,  *2,2110  n 

00  10Q  >1.10 

IF  UCHRR.NE.JNUMU11  GO  TO  100 
Il-J-1 
RETURN 
00  CONTINUE 
1  EOF  -  3 

WRITE  ta. Ill  JCHftR,  11.  I£OF 

RETURN 

END 


I 

1 
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1 

SUBROUTINE  ACCPT  (1SRHP) 

2 

C0MN0N/HCSM/C0RRE78)  ,RNTM  (2, 12)  ,V(25)  , NHEAS.KN, 

3 

1  SQROOT  (78)  ,  X  (25)  ,  1U, NTMEAS,  1  COUNT, 

9 

2  1NRHEU0)  .ITHEAS.NIMEAS.HAXSAM.NTEHP 

5 

COHHON/HtSC/IOIN. 100UT. 1CARD 

6 

01  MENS I ON  BUFF  (3)  .  TEMP  (12) 

7 

ORTA  BUFF /3*Q./ 

e 

1SAMP-0 

9 

1C0UNT-0 

10 

JNLlNE-0 

11 

1QIN-5 

12 

100 

CONTINUE 

13 

WRITE  (6,610) 

ill 

CALL  1 NPT  (1,1, N01NPT, IM0DE.X1NPT , 1E0F) 

15 

IE0FP1-1E0F+1 

16 

GO  TO  (130.110.120.110,990.110) .1E0FP1 

17 

110 

WRITE  (6,650) 

18 

GO  TO  100 

19 

120 

CALL  HELP  (91 

20 

GO  TO  100 

21 

130 

IF  tIMOOE.EQ.il  GO  TO  200 

22 

IF  (1M00E.NE.2)  GO  TO  110 

23 

190 

CONTINUE 

29 

WRITE  (6,620) 

25 

CALL  1NPT  tl , 1 .N01NPT, 1FF0RM, XINPT, 1 E OF) 

26 

1E0FP1-IE0FM 

27 

GO  TO  (170.150.160.1S0.990.150),  IE0FP1 

28 

150 

WRITE  (8,650) 

29 

GO  TO  190 

30 

160 

CALL  HELP  (5) 

31 

GO  TO  190 

92 

170 

IF  (IFFORM.EO,  1)  GO  TO  190 

33 

IF  UFF0RM.NE.2)  GO  TO  150 

39 

REWINO  NTMEAS 

35 

READ  (NTMEAS,  END- 180)  NM£ AS,  KN. !  NAME 

36 

READ  (NTMEAS)  UANTM  (10,  JO)  ,  10-1 .21  ,  JO-1  .NMEAS) 

37 

READ  (NTMEAS)  (CORR  ( 10) ,  10-1  ,KN) 

38 

REWIND  NTMEAS 

39 

WRITE  (6,690) 

90 

I  SAMP- 1 

91 

RETURN 

92 

160 

CONTINUE 

93 

WRITE  (6,670) 

99 

GO  TO  990 

95 

190 

I01N-1 

96 

200 

CONTINUE 

97 

CALL  NRHEFL  (IERROR) 

98 

1 COUNT - 1  COUNT ♦ 1  ERROR 

99 

C 

WRITE  (6,9011  1M0DE, IERROR. ICOUNT 

50 

901 

FORMAT  (/  '  ACCPT  \  10110) 

89 


SI 

1NL1N£»INLINE*1 

52 

IF  (IHODE.EQ.  D  WRITE  (6.5001 

S3 

IF  ‘_lHOOE.NE.il  WRITE  (6.510)  INRHE 

34 

HRX1NP-2 

55 

C 

WRITE (6,901)  1H0DE.  1  ERROR. 1CQUNT, INLINE. HAXlNP, 1E0F 

56 

DO  320  IRCW-1 , NHERS 

57 

210 

CONTINUE 

58 

IF  (IHODE.EQ.  1)  WRITE  (6,530)  IRON 

53 

220 

NRHT-0 

60 

230 

CONTINUE 

61 

IT0T1N-NAX1NP-NAHT 

62 

!C0L-NAHT*1 

83 

CALL  INPT  (2,  ITQTIN.NOINPT,  1 VAL.RNTH  (I COL,  IRON)  ,  1E0F) 

64 

IF  (1E0F.EQ.5.QR. 1E0F.EQ.Q)  NAHT-NAHT*NOINPT 

65 

C 

WRITE (6,901)  1HQ0E.  1T0T1N.  HRX1NP.NRHT, IEOF, 1C0L, 1C0L 

86 

IF  (lH00E.E0.il  GO  TO  240 

67 

1NL1NE«INHNE*1 

68 

IF  (NRHT.EQ.HRX1NP1  GO  TO  290 

69 

IF  tlEOF.EQ.I!  GO  TO  480 

70 

WRITE  (6,540)  IRON 

71 

IF  (IEOF. EO. 51  GO  TO  270 

72 

WRITE  (6,700)  INLINE 

73 

I COUNT- 1  COUNT* 1 

74 

GO  TO  320 

75 

240 

CONTINUE 

76 

IE0FP1-IE0F*! 

77 

GO  TO  (280,210.250.260,490.270),  1EQFP1 

78 

2S0 

CONTINUE 

79 

CALL  HELP  (6) 

80 

GO  TO  210 

81 

260 

CONTINUE 

82 

WRITE  (6,650) 

63 

GO  TO  210 

84 

270 

CONTINUE 

85 

I OL 1 3T-N0 ! NPT- 1  TOT  I N 

86 

WRITE  (6,600)  I  OUST 

87 

IF  (1H00E.NE.H  1C0UNT- JCQUNTM 

88 

GO  TO  290 

89 

280 

CONTINUE 

80 

IF  (NfiHT.GE.2)  GO  TO  290 

91 

WRITE  (6,550) 

92 

GO  TO  230 

93 

290 

CONTINUE 

94 

IF  (NAHT.GT.2I  NAMT-2 

95 

IRERR-0 

98 

DO  300  1C0L-1.NRHT 

97 

CALL  REASON  (1 ,  ICOL,  IRON. ANTH  (1,  IRANI  ,ANTH(2.  IRON) .  1FATAL) 

98 

I RERR- 1 RERR* I F  AT  AL 

99 

300 

CONTINUE 

too 

IF  (IRERR.EO.O)  GO  TO  320 

90 


101 

IF  (1H00E.NE.1)  GO  TO  310 

102 

WRITE  (6,6301  IRON 

103 

GO  TO  220 

101 

310 

I  COUNT  » 1 COUNT ♦  1 RERR 

10S 

320 

CONTINUE 

106 

IF  (1M0DE.EQ.1)  NR1TE  (6,560) 

107 

IF  (1H0DE.NE.1)  WRITE  (6,520) 

108 

00  460  1R0W« 1  .NHERS 

109 

330 

CONTINUE 

110 

NAHT-0 

111 

HAX1NP»NHEAS*1*1R0W 

112 

340 

CONTINUE 

113 

IF  (1H00E.EQ.  1 .AND.  1  ROW. EO. NHERS)  WRITE  (6.580) 

1R0W, HAXINP, NHERS 

114 

IF  (INODE. EQ.l. AND.  IRON. NE. NHERS)  WRITE  (6,570) 

IR0W.HAX1NP. IRON, 

115 

1NHEAS 

116 

350 

CONTINUE 

117 

ITQTIN-MAXINP-NAHT 

1 16 

1START-1R0H*NAHT 

119 

CALL  1NPT  (2, ITOTlN, N01NPT, 1 VAL.TEHP  (1STRRT) , 1E0F) 

120 

IF  (1EOF.EQ.O.QR.  1EQF.EQ.S)  NANT «NAHT ♦NDl NPT 

121 

IF  (1HOOE.EQ.1I  GO  TO  360 

122 

INUNE-INUNE*! 

123 

IF  (NAHT.EO.HRXlNP)  GO  TO  410 

12)1 

IF  (IEQF.EQ.O)  GO  TO  350 

125 

IF  UEOF.EO.il  WRITE  (6.710) 

126 

IF  (IE0F.EQ.1)  GO  TO  470 

127 

IF  (1E0F.EQ.51  GO  TO  390 

128 

I  COUNT* l COUNT *1 

129 

WRITE  (6.7001  INUNE 

130 

GO  TO  460 

131 

360 

CONTINUE 

132 

1E0FPME0F*! 

133 

GO  TO  (400.380. 370. 380. 490, 390).  1E0FP1 

134 

370 

CONTINUE 

135 

CALL  HELP  (7) 

136 

GO  TO  340 

137 

380 

CONTINUE 

136 

WRITE  (6,650) 

139 

GO  TO  340 

140 

390 

CONTINUE 

141 

10UST-NOINPT-ITOT1N 

142 

WRITE  (6,6001  I OUST 

143 

IF  (IHOOE.NE, 1)  1 COUNT* 1 COUNT* I 

144 

NAHT«HAX1NP 

145 

GO  TO  410 

146 

400 

CONTINUE 

14? 

IF  (N01NPT.EQ.  ITOTlN)  GO  TO  410 

146 

1T0TIN-HAXINP-NANT 

149 

WRITE  (6.5901  IT0UN.1R0W 

150 

GO  TO  350 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 
166 

169 

170 
»7l 

172 

173 

174 

175 

176 

177 
176 
179 
160 
161 
162 
183 
169 
185 
166 
18? 

168 
169 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 


410 


CC 

902 


C 

420 


430 

440 


450 

460 

470 


460 

490 

500 

510 

S20 

530 

540 

5S0 

560 


570 

SQO 

590 

600 

610 

620 

630 

640 


CONTINUE 

1L  AST • 1 ROW*NRHT- 1 
1RERR-0 

00  420  1C0L-1R0W, 1LRST 

WRITE (6,902)  IRON, 1C0L, HAST, 1H0DE,  TEHP(ICOL) 

FORMAT  t *  ACC*.  4110,  4F10.3) 

CALL  REASON  (2, 1C0L, 1  ROW, TEMP (ICDL) ,0, 1  FATAL) 

IRERR«1RERR*IFATAL 

WRITE (6,901)  1R0W, 1C0L, 1RERR, 1FATRL 

CONTINUE 

IF  (1RERR.E0.0)  60  TO  440 
IF  UM00E.EQ.2)  GO  TO  430 
WRITE  (6,640)  1R0W 
GO  TO  330 

1  COUNT* I  COUNT* 1RERR 
GO  TO  460 
CONTINUE 

DO  450  1C0L-1R0M.NNERS 
N-NQX  (1R0H, 1C0L) 

CORR  (Ml  -TEMPI! COL) 

CONTINUE 

CONTINUE 

CONTINUE 

IF  (1CQUNT.EQ.0)  1SAMP-1 

IF  UH00E.NE.11  WRITE  (6.680)  1C0UNT 

GO  TO  490 

WRITE  16.6601 

RETURN 

CONTINUE 

RETURN 

FORMAT  (5X, 'ENTER  PPIMS  OF  MEANS  NNQ  STANDARD  0EV1  AT  IONS— ') 

FORMAT  <//,'  DIAGNOSTICS  OF  FORNATTEO  RE AO  *,/,'  OPER  OESCi  *,I0A4 

l./l 

FORMAT  (//. IX, 'CORRELAT 10N/ANTMROP0HETR1C  MEASUREMENTSi M 
FORMAT  C  MEASUREMENT  -  *,12,‘  ?---') 

FORMAT  1*  MEASUREMENT  -*.121 

FORMAT  (5X, 'ENTER  3TRW0AR0  DEVIATION  — *1 

FORMAT  15X, 'ENTER  ANTHROPOMETRIC  CORRELATION  MATRIX  DATA  IN  A  ROMM 
USE  UPPER  './.SX.'TRIRNGULAA  FORM. ' , /,5X. 'NOTEi  ALL  DIAGONAL  ILEM 
2ENT3  MUST  EQUAL  1. 000 'I 

FORMAT  (5X,4MR0M  .12.  M'.I2.*  ELEMENTS,  COLUMNS  *.  12, M2.  ‘I  *1 
FORMAT  (5X.4HR0M  ,12. '(*,12.  *  ELEMENT,  COLUMN  '.12.  *1*1 
FORMAT  110X,  33H—ENTER  THE  REMAINING  .12.18H  ELEMENTS  FOR  ROW  ,12 
11 

FORMAT  OOX,  **<««ACCPT051  THE  LAST  M2,'  INPUTS  HAVE  6EEN  IGNORED* 
11 

FORMAT  (5X, 'INPUT  MODE  II-1NTERACT1VEi2»F1lE)  —'I 

FORMAT  (SX.'REAO  MODE! I -FORMATTED! 2-UNFORMATTEOl  — 'I  \ 

FORMAT  (IOX, '«»«RCCPT060  RE-ENTER  DATA  FOR  '.121 
FORMAT  OOX,  *«««ACCPT1300  RE-ENTER  DATA  FOR  ROM  M3I 


201  650  FORMAT  (10X,  *— -ACCPT155  INVALID  RESPONSE') 

202  660  FORHAT  (10X, '—nACCPT  UNEXPECTED  EOF  ON  NlHEAS  FOR  MEAS  ',121 

203  670  FORMAT  UOX, '—«READFL>i030  FILE  ANTSTA  IS  NOT  ATTACHED  TO  THE  PROG 

20H  IRAM'./.IOX. '—UNFORMATTED  READ  ON  THIS  FILE  IS  ABORTED  — '//) 

205  680  FORHAT  (10X,  '—ACCPT3000  TOTAL  ERRORS  ON  INPUT  DATA  '.151 

206  690  FORMAT  !'  MEAN, STD  DEV  ^CORRELATION  DATA  READ') 

207  700  FORMAT  (10X,  ACCPT150  1NVALI0  DATA  AT  LINE  ’,15) 

208  710  FORMAT  (1QX, ACCPT 1200  UNEXPECTED  END  OF  FILE') 

209  END 


1 

SUBROUTINE  EDIT 

2 

C0MH8N/MCSM/C0RR  (781 ,  RNTH  (2. 1 2)  ,  V  (251  .  NHERS.KN 

3 

1  SOROOT  (781  .X  (255 .1U.NTHERS.  1C0UNT, 

H 

2  1NRHE  (10) .lTHERS.NlMERS.HRXSftH.NTEHP 

5 

COHMON/MISC/IOIN,  100UT.  1CRRD 

6 

DIMENSION  BUFF  (3) 

7 

ORTR  BUFF/3*0. / 

8 

101N-5 

9 

too 

CONTINUE 

10 

NR1TE  (6,3501 

11 

CALL  1NPT  U.l.NVRLSZ.lQPT.XVRL.lEOF) 

12 

IE0FP1-1E0F-1 

13 

60  TO  (130, 100. 110, 120, 3H0, 1201.  1E0FP1 

11 

no 

CONTINUE 

15 

CRLL  HELP  (81 

16 

CO  TO  100 

17 

120 

CONTINUE 

18 

WRITE  (6.360) 

19 

GO  TO  100 

20 

130 

CONTINUE 

21 

IF  (10PT.LT. 1 .OR, 10PT.GT.5)  GO  TO  120 

22 

GO  TO  (1H0.1HQ.2H0.330.3H01.1QPT 

23 

1H0 

CONTINUE 

2<i 

1  COL- 1  OPT 

25 

150 

CONTINUE 

26 

KRXINP-2 

27 

NRHT-0 

28 

160 

CONTINUE 

29 

IF  (ICOL.EO.  1)  WRITE  (6,580) 

50 

IF  (ICOL.EO. 2)  WRITE  (6,390) 

51 

170 

CONTINUE 

52 

IVAL32-HRXJNP-NRNT 

55 

J-NAHT»I 

3H 

CRU  1NPT  (2,  IVRLSE.NVRLSI,  1  VRL.BUFF  (J) ,  1E0F) 

55 

lEOFPt-lEOFPl 

56 

GO  TO  (220.180.200.190.100.210).  1E0FPI 

57 

ISO 

CONTINUE 

58 

WRITE  (6,570) 

59 

GO  TO  160 

HO 

190 

continue 

HI 

WRITE  (6,360) 

H2 

GO  TO  160 

H5 

200 

CONTINUE 

HH 

IF  (ICOL.EO.  1)  CRLL  HELP  (III 

H5 

IF  (ICOL.EO. 2)  CRLL  HELP  02) 

H6 

CO  TO  160 

H7 

210 

CONTINUE 

HO 

ICLIST-NVftLSZ-lVRLSZ 

H9 

WRITE  (6.H30)  1  CL  1ST 

50 

220 

CONTINUE 

94 


51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
*2 
83 
64 
85 
66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 
76 

79 

80 
61 
82 

63 

64 

65 
68 

67 

68 
69 

90 

91 

92 

93 
84 

95 

96 
87 

98 

99 

100 


1R0W«BUFF  tl) 

NAHT-NVRUSZ+NRMT 
IF  (NRHT.GE.HfiXINPI  GO  TO  230 
IF  UCOL.EQ.il  write  l8*'1201  1BQH 
IF  (IC0L.EQ.2)  WRITE  1WJH 

GO  TO  170 

SS'Sm*  .l.lMl.llKW.BllfFOl.C.l™’*-’ 

IF  (IFfiTRU.EO.D  GO  TO  150 
ANTHdCOl.l ROW)  -BUFF  (2) 

GO  TO  100 
240  CONTINUE 
HAX1NP»3 

nrht-o 

250  CONTINUE 

WRITE  (6.4101 
260  CONTINUE 

lVfiLSZ«NRXtNP«NAHT 

CRUM 1 NPT  12 .  * XRUSI .  NVAUSZ .  1 VRU . BUFF  l J1 . 1  EOF! 

Gfl^To'  mo! 270. 290. 280. 100.300) .  1E0FP1 

270  CONT 1 NUE 

WRITE  (6.3701 
GO  TO  250 
280  CONTINUE 

WRITE  (6.3601 
GO  TO  250 
290  CONTINUE 

CRUl  HlUP  1)3) 

GO  TO  250 
300  CONTINUE 

IOUl5T«NVfiUSI-lVfiu3Z 
WRITE  (6.400)  16UST 
CO  TO  320 
J10  CONTINUE 

lC0l*8uFf  (il 
IR0W«RUFF (2) 

WRNT«NftHT»NVAl5I 
If  (HRHT.GE.KRX 5 NPI  GO  TO  320 
,f  (WRHT.E0.lt  WRITE  (6.4401  ICffl. 

\f  (KRHT.E0.2I  WRITE  (6.450)  1COU.1ROW 

CO  TO  260 

Sa‘««»N 

tr  (lfftTRU.EO.l)  CO  TO  240 

CRU  REASON  (2.1C0L, IROW.OUFf  (31 .0.  IFRTRU 

If  ((FATAL. £0. 1)  60  TO  240 

W.WOXOROM.ICOL) 

CORR  IN)  «8UFF  131 
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101  GO  TO  100 

102  330  CONTINUE 

103  CALL  PRINT 

104  GO  TO  100 

105  340  CONTINUE 

106  RETURN 

107  350  FORMAT  15X,  'EDIT  MODE  (l-MEANSt2-ST0i3-ANTH.CQRRi4-PRlNT |5-EN0)  --*) 

108  360  FORMAT  (10X,  *«**EDIT044  INVALID  RESPONSE*) 

109  370  FORMAT  (10X,  *««*<EDIT095  NO  INFORMATION  ENCOUNTERED*) 

110  380  FORHAT  15X,  'INPUT  INDEX  AND  MEAN  VALUE*) 

111  390  FORMAT  !5X. 'INPUT  INDEX  AND  STANDARD  DEVIATION*) 

112  400  FORMAT  tlOX.  *«*«EOIT  0<!2  THE  LAST*, 12.*  INPUT?  HAVE  BEEN  IGNORED*) 

113  410  FORMAT  (SX, 'INPUT  COLUMN,  ROM  AND  CORRELATION) 

114  430  FORMAT  15X, 'INPUT  KEAN  VALUE  FOR  INDEX  *,I3t 

115  430  FORMRT  (5X. ’INPUT  STANDARD  DEVIATION  FOR  INDEX  *,I3) 

116  440  FORMAT  <5X,  'INPUT  RON  AND  CORRELATION  FOR  COLUMN  *.I3) 

117  450  FORMAT  (5X. ' INPUT  CORRELATION  FOR  RON  *.12,*  COLUMN  *.I3) 

118  ENO 


1  SUBROUTINE  NAMEFL  (IERRQR) 

2  COHMON/HCSN/CORR  (78)  .  ANTH  (2,12) ,  V  (25)  .NMEAS.KN, 

3  1  SOROOT  (78)  ,X  (25) ,  1U.NTMERS,  1  COUNT , 

4  2  INAMEtlOl.lTHEAS.NlMEAS.MRXSAH.NTEMP 

5  COHNON/HISC/lOlN, IOOUT, ICRRO 

6  DIMENSION  IBUFF  (10) , XVfiL  (10) 

7  ORTA  IBUFF/10x4H  / 

8  DATA  I4BLK/4H  / 

9  1 ERROR-O 

10  00  100  J-1,4 

11  IBUFF  (J)-14BLK 

12  100  CONTINUE 

13  liO  CONTINUE 

14  IF  (I81N.E0.5)  WRITE  (B.ieO) 

15  CALL  INPT  (U.IO.NVALSZ.IBUFK.XVAL.IEOF) 

16  IF  (1ECF.U.2.0R.1E0P.EQ.5)  GO  TO  150 

17  IF  M0IN.NE.5)  GO  TO  140 

18  IE0FM1-1E0F-1 

19  CO  TO  (120, 130. 1701,  1E0FNI 

20  120  CONTINUE 

21  CALL  HELP  (14) 

22  GO  TO  110 

23  ISO  CONTINUE 

24  WRITE  (6,1901 

as  go  to  no 

26  140  CONTINUE 

27  WRITE  (6.190) 

28  1  ERROR- 1 

29  ISO  CONTINUE 

90  00  160  J-1.10 

91  INANE  (J) -IBUFF  (J) 

92  160  CONTINUE 

93  170  RETURN 

94  181  FORMAT  (5X,  'OPERATOR  SAMPLE  DESCRIPTION  (40  CHAR  MAX) 

95  190  FORMAT  UOX.  '«*.xNAHEFL02?  INVALID  RESPONSE M 

98  ENO 


SUBROUTINE  OPSAHP  USAHP) 

CGHMON/HCSM/CORR (78)  ,ANTH<2.12)  ,Vt25)  .NMEAS.KN. 

1  SQROOT  (78) .  X  (25)  .  1U.NTHEAS,  1  COUNT , 

2  1NAME  (10) . 1TMEAS.N1MEAS.MAXSAM.NTEHP 
COHHON/HISC/IOIN. IOOUT. 1CAR0 
DIMENSION  IRAN  (9) 

DRTR  IRAN  (1)  .IRAN  (2)  .IRAN  (3)  .IRAN  (1)  .IRAN  (5) ,  1RRN  (6)  .IRAN  (7) . 
1  IRAN (8) .IRAN (9) /S3333333.555S55SS, 77777777. 222222221, 

1  444444443. 686666669.888888889. 999999999. 123456789/ 

I01N-5 

DO  100  K-l.KN 
SQROOT  <KI  -CORR  (K) 

100  CONTINUE 

CALL  SORMX  (NERROR) 

IF  (NERROR. EQ.l)  RETURN 
HO  CONTINUE 

WRITE  (6,320) 

CALL  1NPT  (1, 1  .NVRLSZ.NSAMP.XVAL,  IEOF) 

1E0FP1-1E0FM 

GO  TO  (150, 120. 130. 140. 290. 140). 1E0FP1 
120  CONTINUE 

UR1TE  (6.330) 

GO  TO  110 
130  CONTINUE 

CALL  HELP  (151 
GO  TO  1  IQ 
140  CONTINUE 

MRJTE  (6,340) 

GO  TO  110 
ISO  CONTINUE 

IF  (NSAHP . GT . 0 . RND. NSAHP, LE . NAXSRH)  GO  TO  160 
WRITE  (6.350)  MAXSAN 
GO  TO  110 
I 60  CONTINUE 

WRITE  (6,300) 

CALL  INPT  (I, l .NVALS2.MTTPE.XVAL, IEOF) 

IE0FPI-1E0F*! 

GO  TO  (190. ISO. 1 70. 180.290. 1801. IC0FP1 
170  CONTINUE 

CALL  KELP  (20) 

GO  TO  160 
ISO  CONTINUE 

WRITE  (6.340) 

GO  TO  160 
ISO  CONTINUE 

ir  (NTTPE.NC.32.AN0.HTTPE.NE. 60)  GO  TO  ISO 
200  CONTINUE 

WRITE  16,910) 

CALL  INPT  U.I.NVAlSZ.IS.XVRl.lEOF) 

1COFPI-IEOF*! 
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SO 

GO  TO  (240.210.220.230.890,230).  1E0FP1 

51 

210 

CONTINUE 

58 

WRITE  (6,330) 

53 

GO  TO  200 

54 

220 

CONTINUE 

55 

CALL  HELP  (21) 

56 

GO  TO  200 

57 

230 

CONTINUE 

58 

HR1TE  (6,340) 

59 

GO  TO  200 

60 

240 

CONTINUE 

61 

IF  US.EQ.O)  GO  TO  250 

62 

IF  (1S.LT.  l.QR.  1S.GT.91  GO  TO  230 

63 

lUalRRN  (15) 

64 

GO  TO  260 

65 

250 

CONTINUE 

66 

1U-6711I133 

67 

260 

CONTINUE 

68 

REWIND  NTEHP 

69 

WRITE  (NTEHP1  INANE, NHEftS 

70 

DO  280  1-l.NSAHP 

71 

CALL  S1HSUB  (HTTPE) 

72 

DO  270  K-l.NHEAS 

73 

V  (K)  »V  (K>  »ANTN  (2.K)  *RNTH  (1 .  K) 

74 

270 

CONTINUE 

75 

WRITE  (NTEHP)  (V  (JO)  ,10-l.NMEAS) 

76 

260 

CONTINUE 

77 

1SAHP-1 

76 

ENO  FILE  NTEHP 

79 

REWIND  NTEHP 

60 

REWIND  NTHEAS 

61 

C 

WRITE  (6.3701 

82 

370 

FORHRTt  IOX,  '««  SAHPLE  DATA  SAVED  ON  FILE  9N 

63 

WRITE  (6.360) 

84 

290 

CONTINUE 

6S 

RETURN 

66 

300 

fOAHAT  (SX, 'ENTER  MACHINE  WORO  SIZE  132  OR  60  BIT)  —  *1 

87 

310 

FORMAT  (5X. 'ENTER  RANDOM  NO  SEED  (0  IF  NONE  OR  1-91  —  ') 

66 

320 

FORMAT  (5X, 'INPUT  SAMPLE  SIZE  —'1 

89 

330 

FORMAT  (l0X,'a««0PSAMP2i5  NO  INFORMATION  ENCOUNTERED') 

90 

340 

FORMAT  (10X, '-a-OPSAMPNII  INVALID  RESPONSE’) 

91 

350 

FORMAT  (IOX,  >««OP5AMP009  SAMPLE  SIZE  MUST  BE  BETWEEN  1  i 

92 

360 

FORMAT  (IOX, '»»»SAMPLE  DATA  SAVEO  ON  FILE  SAMPLE  OR  TAPE 

93 

ENO 

.IS) 
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1 

SUBROUTINE  PRINT 

2 

CQHMON/MCSH/CORR  (78)  ,RNTH(2,12)  .  V  (25)  , NMERS.KN, 

3 

1  SOROOT  (781.X  (25)  .  IU.NTMERS,  1C0UNT, 

4 

2  I  NAME (10) , ITHEftS, MINERS, HRXSRH.NTEHP 

5 

C0HHON/H1SC/1OIN, I  GOUT,  1CRRD 

6 

INTEGER  FMT.FMT1 

7 

DIMENSION  FHT  (6)  .NUM112)  .TEMP  (12) ,  INDEX  (2)  ,  FMT1  (5) 

8 

DRTR  FMT1  /MIX,',  *  \  M2X.\  ,R2,2\  *X))V 

9 

ORTR  FKT  / *  (IX,  *,  *  *,  ’  (6X)  \  '  \  ,F6.3\,)V 

10 

ORTR  NUH/1H1 . 1H2, 1H3, 1HU, 1H5, 1H6, 1H7, 1H8, 1H9.2H10, 2H1 1 ,2H12/ 

11 

FMT1  (2)  -NUMtHHERS) 

12 

ISTORE-O 

13 

IOFLRG-O 

14 

100 

CONTINUE 

15 

WRITE  (6,630) 

16 

CALL  1NPT  (1,1 , NVALSZ, 10PT, XVRL, 1E0F) 

17 

IE0FP1-1E0FM 

18 

GO  TO  (120, 110. 110.  110, 390,  110), 1E0FP1 

19 

110 

CONTINUE 

20 

WRITE  (6.6SQ) 

21 

GO  TO  100 

22 

120 

CONTINUE 

23 

IF  (10PT.LT.  1 ,  OR.  10PT.GT.4)  GO  TO  110 

24 

IF  tIOPT.EQ.l)  GO  TO  130 

25 

IF  (10PT.E0.2)  GO  TO  ISO 

26 

IF  (IOPT . E0.4)  GO  TO  390 

27 

GO  TO  190 

28 

130 

CONTINUE 

29 

WRITE  (6.580) 

30 

00  140  IR0W« 1 ,NHER3 

31 

WRITE  (6.640)  IROW,  tRNTM  (JO.  IR0W1  .JO-1.2) 

32 

140 

CONTINUE 

33 

WRITE  (6,6201 

34 

00  TO  100 

35 

ISO 

CONTINUE 

38 

WRITE  (6.590) 

37 

WRITE  (6. FHT!)  (NUMtlO)  ,10-l.NMERS) 

38 

WRITE  (6,600) 

39 

00  180  IR0W«l,NMER9 

40 

00  160  ICOL-l.NMEAS 

41 

N»NOX (IRON, ICOU 

42 

TEMP  (ICOU  »CORR  (Nl 

43 

160 

CONTINUE 

44 

IF  UROW.GT.I)  CO  TO  170 

45 

WRITE  (6,6101  (TEMP (ICOU  .  1  COL* IRON, NMERSI 

46 

GO  TO  160 

47 

170 

FHT  (2)  «NUH  (1R0W» It 

46 

FHT  14)  -NUN  (NMERS*  1  -  IROM) 

49 

WRITE  (6.FMTI  (TEMP (ICOU.  1C01.-IR0W.NMCR3) 

SO 

180 

CONTINUE 

100 


I 

l 


1 

t 


I 

li 

f 

i 

I 

% 

ft 


51 

52 

53 

54 

55 

56 

57 

58 

59 


WRITE  (6.620) 

GO  TO  100 
190  CONTINUE 

WRITE  (6,430) 

IF  (10FLflG.LT.  1)  WRITE  (6,440) 

IOFLRG-1 

CALL  INPT  (U2.NVRLSZ.IN0EX.XVRL.IE0F) 
1E0FP1-IE0F+1 

CO  TO  (230.270.200.210.  100.220).  1EQFPI 


60 

200 

CONTINUE 

61 

CRLL  HELP  (19) 

62 

10FLRG-0 

63 

GO  TO  190 

64 

210 

CONTINUE 

65 

WRITE  (6,420) 

66 

GO  TO  190 

67 

220 

CONTINUE 

68 

I0LIST-NVRLSZ-2 

69 

WRITE  (6.450)  I0L1ST 

70 

230 

CONTINUE 

71 

IF  (INDEX  (I )  .GT.Q)  GO  TO  240 

72 

WRtTE  (8.480) 

73 

GO  TO  190 

74 

240 

CONTINUE 

75 

IF  ( I STORE. GT.Q. RNO. INDEX  tl) .GT. I ST ORE) 

76 

NRSKIP- INDEX  tU-l 

77 

GO  TO  260 

76 

250 

CONTINUE 

79 

NRSK 1 P« 1 NOEX ( 1 ) - 1 STORE - 1 

80 

260 

CONTINUE 

61 

1STRRT- INDEX  (1) 

62 

IF  (NVRLSI.EO. D  GO  TO  280 

83 

IF  (NVRLSZ.GE.21  GO  TO  290 

64 

270 

CONTINUE 

85 

lSTORE-Q 

86 

} STRUT -1 

87 

i End* 999 

68 

HRSKiPoO 

69 

GO  TO  320 

90 

260 

CONTINUE 

91 

JENO*lSTRRT 

92 

GO  TO  3 10 

93 

290 

CONTINUE 

94 

IF  (INDEX  (II. LE.INOEX  (2)1  GOTO  300 

95 

WRITE  (6,4901 

96 

GO  TO  190 

§7 

300 

CONTINUE 

98 

)EnO*  INDEX  (2) 

99 

310 

CONTINUE 

100 

IF  (INDEX  111  .GT.  I STORE. RNO.  ISTCRE.NE.OI 

lot  320  CONTINUE 

102  REHINO  NTEMP 

103  READ  (NTEMP,  END-1 10)  1 NAME. NMEAS 

101  330  CONTINUE 

105  IF  tNRSKIP.LT.l)  GO  TO  350 

106  DO  310  1-1.NRSK1P 

107  READ  (NTEMP. END-100)  (V  (K)  ,K-i  .NMEAS) 

108  310  CONTINUE 

109  350  CONTINUE 

110  WRITE  (8,530)  tlNAME  (10) ,  10=1 , 10) 

111  IF  (ISTART.E0.1END)  WRITE  (6,510)  1EN0 

112  IF  USTART.NE.IEN0.AND.1EN0.NE.999)  WRITE  (6.550)  1START.1EN0 

113  WRITE  (6.5001 

111  NR1TE  (6, FMT1)  (NUN  (10) .  10-1  .NMEAS) 

115  WRITE  (6,6001 

116  1SK1P-0 

117  NFQUND-0 

118  00  360  1-1START, 1EN0 

119  IF  (ISKIP.EQ.t)  WRITE  (6,160) 

120  1SX1P-0 

121  IF  (13TRRT.NE. IENO. ANO. 1 .NE. 1EN0. AND. (1/5) mS.EQ.  1)  ISK1P-1 

122  READ  (NTEMP, END-370)  (V(K)  ,K-1, NMEAS) 

123  NF  OUND-NF OUND* 1 

121  1  STORE- 1 

125  WRITE  (6,510)  (V  (K)  ,K-1, NMEAS) 

128  360  CONTINUE 

127  CO  TO  380 

128  370  CONTINUE 

129  IF  tIEN0.NE.999.AN0.15TRRT.NE. IENO)  WRITE  (6.170)  IENO 

ISO  1ST0RE-1 

191  IF  (NFOUNO.lT. 1)  WRITE  (6.560) 

132  380  CONTINUE 

133  WRITE  (6,520) 

191  GO  TO  190 

195  990  CONTINUE 

196  REM! NO  NTEMP 

197  RETURN 

198  10Q  CONTINUE 

139  1 OLt ST- 1-2*1  STORE 

mo  write  (8.  seai 

mi  GO  TO  190 

m2  no  continue 

ms  WRITE  (6,5701 

mi  GO  TO  100 

115  120  FORMAT  (IOX, ‘«««PRIMT 135  INVALID  RESPONSE') 

me  ISO  FORMAT  tSX.  ’OUTPUT  MODE »  —  *) 

117  11Q  FORMAT  (IOX, ‘FOR  ALL  OPERATOR  DATA  (ENTER  CARRIAGE  RETURNI *,/, IOX 

118  1*F0R  INOI  VtOUAL  OPERATOR  DATA  (ENTER  OPERATOR  NUM6ER1  *.  ts  IOX.  TOR 

119  2A  SEQUENCE  OF  OPERATORS  (ENTER  RANGE  OF  OPERATOR  NUM8ER9I  \/.»0K, 

ISO  SEND  (ENTER  *5  'I 


1S1 

950 

FORMAT 

(10X.  '*««PRINT119  THE  LAST  14,  ’INPUTS  HAVE  BEEN  IGNORED') 

1S2 

460 

FORMAT 

(1H  1 

1S3 

470 

FORMAT 

(10X,  '«»<«PRINT21!  ERROR  I»!  UPPER  INDEX  --’.14) 

154 

480 

FORMAT 

tlOX.  '«k*<PR1NT120  INDEX  NO.  LESS  THAN  OR  EQUAL 'x«wT 

155 

10  ZERO 

IS  NOT  VALID') 

156 

490 

FORMAT 

(10X,  *k>««PR1NT160  FIRST  INDEX  MUST  BE  LESS  THAN  SECOND  INDE 

157 

IX  '1 

158 

500 

FORMAT 

(27X.  'OPERATOR  SAMPLE*./, 71  (1H-)1 

159 

510 

FORMAT 

(11F6.2.F5.2) 

160 

520 

FORHAT 

t7i  tiH-n 

161 

530 

FORMAT 

(1X.10A9.10X.A4) 

162 

540 

FORHAT 

tlOX, 'OPERATOR  NO'.  14) 

163 

550 

FORMAT 

11  OX, 'OPERATOR  NOS', 14.'  —’.14) 

169 

560 

FORMAT 

(10X. 'mmmPRINTISQO  INDEX  NUMBER  EXCEEDS  RECORDS  IN  OPERATOR 

165 

1  FILE***') 

166 

570 

FORMAT 

tlOX. '«*«PR1NTI600  FILE  SAMPLE  IS  NOT  ATTACHED  TO  THE  PROGR 

167 

1AM'. /. 

10X.  '••.••OPERATOR  OUTPUT  REQUEST  ABORTED  —',//) 

168 

580 

FORMAT 

1/.21X, 'MEANS  AND  STANDARD  DEVIATIONS',/.  IX. 70  tlH-1  ,/,2X. 'M 

169 

1EASURENENT',6X,  'MEANS', 6X. 'STD  DEV*. /.IX. 71  ttH-)l 

170 

590 

FORMAT 

1/.7X. 'CORRELATION  MATRIX  FOR  ANTHROPOMETRIC  MEASUREMENTS'. 

171 

1/.1X,70UM-1) 

172 

600 

FORMAT 

UX.70UH-1) 

173 

610 

FORMAT 

(IX.I2F6.3) 

179 

620 

FORMAT 

11X.70UH-1) 

175 

630 

FORMAT 

CSX, 'PRINT  MODE  tl-NEAN/STDj2-C0RR  MATRX» ', '3-OPER  HEAS»4-EN 

176 

10)  --') 

177 

640 

FORHAT 

t7X.12.5X.2t5X.F7. 2)) 

178 

850 

FORMAT 

UOX. 'ttoxPRlNTlOS  INVALID  RESPONSE') 

179 

END 

1 

SUBROUTINE  RAN02  (RNORH.HTYPE.QURN. 1 J) 

2 

COMHflN/HCSH/CORR  (78) ,  RNTM  (2,12)  ,V(25)  , NHERS 

3 

1  SOROOT  (7ft) , X  125) , IU.NTHERS, 1  COUNT , 

*1 

2  INRHE(IO) .ITNEAS.NIMERS.HRXSRM.NTEHP 

S 

DIMENSION  QUflN  (2) 

6 

COMMON/HISC/IOIN, 100UT, ICARD 

7 

1J-IJ-M 

e 

IF  (IJ.E3.2)  GO  TO  110 

9 

100 

CONTINUE 

10 

X1»2.0«UNF0RH (MTYPE)-l.O 

11 

T 1  «2.0*UNFQRH  (MTTPE)  -1.0 

12 

S»X1«X1*T1*«Y1 

13 

IF  (S.GE.1.0)  GO  TO  100 

11 

S-SORT  (-2.0i*R1.0G  (S)  /SI 

15 

QUflN  (1)«X1»S 

16 

QURN  (2)>Y)mS 

17 

110 

CONTINUE 

16 

RNORH-QURNdJl 

19 

IF  (IJ.E0.21  IJ-0 

20 

RETURN 

21 

END 

104 


0 

SUBROUTINE  REASON  tlCRLL, 1C0L, 1R0H.TST0R1 .TS70R2, 

1 

COHHON/KCSH/CORR  (78)  ,RNTM  (2. 12)  ,V (25) .NMERS.KN, 

2 

1  SQAOOT  (76)  ,  XUS)  .1U.NTHERS.1  COUNT. 

3 

2  1NRHE (10) . 1THERS. HIRERS. HRXSRH.NTEHR 

*  . 

C9NN0N/H  2  SC/101N, 2 OOUT . I CARO 

5 

1FRTRL-0 

6 

IRFLRG-0 

7 

C 

NR1TE (6.901)  1CALL, 1CQL, IRON, 1FRTRL.TSTQR1 .TST0R2 

8 

901 

FORHfiTC  REASON  \  9110,  9F10.3) 

9 

IF  (lCRLL.LT, 01  IAFLRG-1 

10 

1CRLL-1RBSUCRLL) 

n 

IF  (1CRLL.GT.11  GO  TO  110 

12 

1HR1TE-1 

19 

IF  (1R0N.LT.1.QR.  IROU.GT.NRERS)  GO  TO  120 

m 

IF  11C0L.CQ.21  GO  TO  100 

IS 

RETURN 

18 

100 

CONTINUE 

17 

1NR1TE-2 

18 

IF  (TST0R2.LT. 0.)  GO  TO  120 

19 

lUAlTE-3 

20 

IF  (T3T0R1  .LE.TST0R2)  GO  TO  120 

21 

RETURN 

22 

no 

CONTINUE 

23 

JWRITE-l 

29 

IF  (IRON. LE.O.QR.  1R0U.GT .NRERSI  GO  TO  130 

25 

1UR2TE*2 

28 

ir  (1CCL.LE.0.CR. ICOL.GT .NRERS)  GO  TO  130 

27 

1  WRITERS 

28 

IF  (1RQM.GT .  1C9L)  GO  TO  130 

29 

ir  (1CQL.EQ.31  RETURN 

30 

1WR1TE«9 

31 

IF  (1C0L. f Q. '.ROM. AND. TSTORl.NE.  1.0001  GO  TO  130 

32 

1NRITE*5 

S3 

IF  (TSTORl.LT. *1.000)  60  TO  130 

39 

1UR1  TE«*6 

35 

IF  (TST6R1.GT.  1.000)  00  TO  130 

38 

return 

37 

120 

CONTINUE 

38 

IF  (IMR1TE.KC.  i.RNO.  lOIN.NC.S)  WRITE  (6.2801  IRON 

38 

00  TO  (190.190.150),  1 WRITE 

90 

130 

CONTINUE 

91 

GO  TO  (190.200.210. 160. 170. 160),  IWRITE 

92 

190 

CONTINUE 

93 

WRITE  (6.230) 

99 

68  TO  220 

95 

150 

CONTINUE 

98 

WRITE  (6.2901 

97 

CO  TO  220 

98 

180 

CONTINUE 

98 

WRITE  (6.2501  IftON.iCOL 

105 


50  60  TO  220 

51  170  CONTINUE 

52  WRITE  (6,260)  IBOW.ICOL 

53  GO  TO  220 

54  180  CONTINUE 

55  WRITE  (6,2701  IRflW.ICOL 

58  60  TO  220 

57  190  CONTINUE 

56  WRITE  (8,290)  lftOE.NHEAS 

59  60  TO  220 

60  200  CONTINUE 

61  WRITE  (6.300)  1CQL.NNEAS 

62  GO  TO  220 

63  210  CONTINUE 

64  WRITE  (6,310)  1R0M.1C0L 

65  60  TO  220 

66  220  CONTINUE 

67  IFATAl*1 

88  RETURN 

69  230  FORMAT  UOX.  *«»«.REAS8N1  ISO  STANOARO  DEVIATIONS  LESS  THAN  ZERO') 

70  240  FORMAT  UOX, ’«n«*REAS0N  1200  STD.  GREATER  THRN  HEAN  VALUE.*) 

71  250  FORMAT  UOX.  *«*«REASON12SO  DIAGONAL  ELEMENT  1M  ROM  *.  12./.  10X,  *«»« 

72  (COLUMN  ',12.  '  IS  NOT  EQUAL  TO  1.0*1 

73  260  FORMAT  UOX, *«  TREASON  1300  ENTRY  IN  COLUMN  ’.12.*  ROM  M2./.IQX,* 

74  In-.IS  LESS  THAN  -t.0'1 

75  270  FORMAT  UOX.  **«»REAS0H135O  ENTRT  1W  COLUMN  *.12.*  ROW  *,12./,10X.* 

78  l«»«US  GREATER  THAW  *1,0*1 

77  260  FORMAT  (6X,  12) 

76  290  FORMAT  UOX,  '***REAS0N1500  ROW  *,12.'  IS  LESS  THAW  ZERO  OR  GREATER 

76  l  THAN  *,12) 

80  100  FORMAT  UOX.  '•••AEASOMIGQO  COLUMN  ’.12.’  13  LESS  THAN  ZERO  OR  GREA 

•1  ITER  THAN  *,12) 

62  310  FORMAT  UOX.  **««REASCM17G0  ROM  ',12. ’COLUMN  *.12,  ’  IS  OUTSIDE  OF 

63  lUWA**/.tOX.*»»-TRlAW6ULAA  REGION  OF  CORRELATION  MATRIX.') 

64  END 
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1  subroutine  save 

2  COMHON/HCSH/CORR  178)  .RUTH  (2.12)  ,V  (25)  .NHERS.KN. 

3  I  SQRGOT  (781  ,  X  (25) .  JU.NTHERS,  ICQUNT, 

4  2  1NRME  (10)  ,  I THERS.NIHtRS, MAXSRH, NTEHP 

5  COHHON/HJSC/101N, 100UT, 1CAR0 

6  REMIND  NTHEAS 

7  WRITE  (NTHEAS)  NHERS.KN.  1  NAME 

8  WRITE  (NTHEASl  ( (RNTH  (10,  JO) .  18*1 ,2)  .  J0*1 .  NHERS) 

9  WRITE  (NTHEAS)  (CORR(IO) .  10-1.KN1 

10  REWIND  NTHEAS 

11  WRITE  (6.100) 

12  RETURN 

13  100  FORMAT (’  HEASEUREHENT  DATA  SAVED  ON  FILE  RNTSTA  OR  TAPE  2*1 

14  END 
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1 

2 

3 

4 

5 

6 
7 

e 

9 

10 
11 
12 

13 

14 

15 

16 
17 


SUBROUTINE  S1MSU6  (HTTPE) 

COMMCN/HCSM/CCRR  (78)  .ANTM  *NMEftS,KM 

t  saR00T(78)  ,X  (25)  JU.NTNEfiS,  1  COUNT. 

2  INRRE(iO)  .lTMEftS.NlMEfiS.MAXSflM.NTEHP 
COMMON/M 1 SC/IOIN, 100UT , ICflRO 

V  ftICl 


I>0 

00  100  1-l.NMERS 
V(I)*0.0 

COLL  RRN02  (RNQRH.HTTPE.QUftN. I J> 
100  T(1)-RN0RH 

DO  110  1-l.NHEBS 
00  110  >1.1 
K-NDX  (J.D 

110  V  (II  «V  (1)  4T  (J)  wSQROOT  (K) 

RETURN 

END 
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•’*  -  __ *  \  J 


0 

SUBROUTINE  SQRMX  (NlRROR) 

1 

COHHON/HCSH/CORR  (78)  ,RNTH(2,12)  ,  V  (25)  , NHEAS 

2 

1  SOROOT  (78) , X  125)  .  IU.NTHERS,  1  COUNT, 

3 

2  INRHEUO)  .ITHEftS.NlMEftS.HRXSRH.NTEHP 

4 

C0HH0N/M1SC/1C1N. 100UT . ICflRO 

S 

DIMENSION  ZX  171 

6 

INTEGER  EX 

7 

NERROR-Q 

6 

00  120  l-l.NHEAS 

a 

ZX  (4) »; 

10 

N-NOXU.il 

n 

IF  (SQROOT  (N)  ,LT  .0)  GO  TO  130 

12 

50-SORT  (SQROOT  (N> ) 

13 

00  100  J-l.NMEAS 

in 

N-NOX  11,  J) 

15 

SQROOT  (N> -SQROOT  (N)  /SU 

16 

100 

CONTINUE 

17 

IF  (l.EQ.NMEASI  NERROR-O 

16 

IF  (l.EQ.NHERS)  RETURN 

19 

*1*1 

20 

>*(-  ’  1 

21 

ud  .10  12-11, NHEAS 

22 

00  110  J2-12.NHERS 

23 

N-NOX  (12.  J2) 

24 

l-NOX  (1,12) 

25 

K-NOX  (1,  J2) 

26 

SQROOT  (N)  -SQROOT  (N)  -SOROOT  (U  -SOROOT  (K) 

27 

IX  (6) -12 

28 

IX  (7)  ■  J2 

29 

110 

CONTINUE 

30 

lXtl)-N 

31 

IX  (2)  -l 

32 

IX  13)  -K 

33 

120 

CONTINUE 

34 

130 

CONTINUE 

35 

NERROR-1 

36 

WRITE  (6,160) 

37 

140 

CONTINUE 

36 

WRITE  (6.190) 

39 

CRU  1NFT  (4,  l.NVALSZ.  1AN5.XVAI.  IEOFI 

40 

IE8FP1«1E8"*1 

41 

CO  TO  1170.160.150.170.160,170).  1E0FP1 

42 

ISO 

CONTINUE 

43 

WRITE  (6.200) 

44 

WRITE  16,2101  (IX  (II.  t-1, 7), SOROOT  INI 

45 

160 

CONTINUE 

48 

RETURN 

47 

170 

CONTINUE 

46 

WRITE  (6.2201 

49 

CO  TO  140 

109 


so 

51 

52 

53 
SV 

55 

56 

57 

58 

59 


180 

190 

200 


210 

220 


FORMAT  (10X. *hmnS0RHX051  ANTHROPOMETRIC  CORRELATION  VALUES  ARE  1N7 
IfiL 10  M 

FORMAT  (iOX, * —  ENTER  CARRIAGE  RETURN  TO  CONTINUE  PROCESSING*./. 10 

IX  ' _ ENTER  ?  TO  DISPLAY  SORMX  VARIABLES, *1 

FORMAT  (10X.'""«SQRMXQ62  AN  INDEFINITE  0UANT1TY  HAS  BEEN  DETECTED 
1ST *, /.  IOX.  *"""SORHX.  VARIABLE  LIST  N1TH1N  SQRMXt \/,10X*  N  L 

2  K  I  11  12  J2  SQROOT  *,/.  10X.41 11H-)  1 

FORMAT  (8X.1  (3X.121  ,UX,3  112. 3X1  ,F6.  3. /.  10X.4U  tlH-1 ,//) 

FORMAT  (IOX, '"""SQRMX060  1NVRL1D  RESPONSE"""') 

END 
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>-  Jr 


1  FUNCTION  NDX(l.J) 

2  IF  (l.GT.J!  GO  TO  100 

p  NOX«I+  (JmJ-J)  /2 

U  RETURN 

5  100  NOX*J+  (1*1-11  /2 

6  RETURN 

7  ENO 


111 


m  <0 


1 

2 

3 

4 


7 

8 

9 

10 
11 
12 
13 
11 

15 

16 
17 


FUNCTION  UNFORH (HTYPE) 

COMMON  /MCSH/  CQRR(78)  ,ONTM  12>  12)  ,V  (25)  .NHEflS.KN, 
ISOROOT  (781 .  X  (25)  .  1U. NTHEftS,  1  COUNT , 

2INRME  (10)  .lTHERS.NlMEflS.MRXSRM.NTEHP 
COHMON/M 1SC/101N, 100UT, 1 CRRD 
DflTfl  I X/ 1 67772 1 3/. C/281 4719767 1 0655. / 

IF  (HTYPE.EQ. 32)  GO  TO  100 

IU-IU-1X 

UNFORM- 1U/C 

RETURN 

)  1U«1U*65539 

IF  (IU.GE.O)  GO  TO  110 
1U-1U+21 17183617+1 
1  UNFORH- 1U 

UNFORH-UNFORH* . 16566 1 3E-09 


END 
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SUBROUTINE  HELP  Cl) 
RETURN 


BLOCK  DATA 

C0HM0N/HCSM/C0RR(78)  ,ANTM(2,12)  ,V(25)  .NMEAS.KN 

1  SQROOT  (78)  ,X(2S)  .  IU.NTHEAS,  ICOUNT, 

2  INANE tlO) ,  I  THE AS,  NIHEfiS.HAXSRH.NTENP 
COMMON/MI  SC/ 101 N, 1 OOUT , 1  CARD 

DATA  lOlN,I0OUT.NTENP.NTHEAS.NlMEAS/5.6.3.4,7/ 
DATA  MAXSAH/'lOO/ 

DATA  NTMEAS,N1MEAS/2.U/ 

1,1 COUNT /O/ 

DATA  ANTM/2U«0./,C0RR/78«0./.INAME/4i*UH  / 


0  SUBROUTINE  PUNRT 

I  COHMON/HCSM/CORR (78)  .QNTH(2.12)  .  Vt25)  .NMEAS.KN, 

8  1  SQROOT  (781.X  (25),  1U.NTNEAS. 1COUNT. 

3  2  INAME  (10)  .nMERS.NlHEAS.MAXSAM.NTENP 

4  COMMON/M 1 SC / I 0 1 N. 1 QOUT . 1 CRRO 

5  REMIND  NTEMP 

6  REMIND  9 

7  C 

8  2  CONTINUE 

9  READ  (NTEMP. EN0-140)  INANE. NHEAS 

10  NR1TE  (9.271)  INANE. NHEAS 

II  C 

12  4  CONTINUE 

13  READ  (NTEMP.  EN0-370)  (V  (K)  ,K«I, NHEAS) 

14  MA1TE  (9,271)  (V  (K)  , K«1  .NNEAS1 

15  271  FORMAT  (20A4) 

16  GO  TO  4 

17  370  CONTINUE 

18  ENOFILE  9 

19  MRITE (6.272) 

20  272  FORMAT  (10X.  '««««  ORTA  SAVED  ON  PILE  9*1 

21  BEHIND  NTEMP 

22  RETURN 

23  140  CONTINUE 

24  MRITE (6, 141) 

25  141  FORMAT  (10X.  *  ERROR  DATA  SET  DOES  NOT  EXIST*) 

26  RETURN 

27  END 
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